Практическая работа

[лузер1408]

Помогите пожалуйста нужна блок схема и программа на паскале.Дана матрица Е(5х5), получить массив D(5),такой что D(1)=произведению элементов первой строки матрицы E; D(2)=произведению элементов второй строки матрицы E и т.д.

[Namolem]

Чем помочь?

[ROMA2PVT]

Program massiv;
uses crt;
var
E:array[1..100,1..100] of integer;
d:array[1..100] of integer;
i,j,n,m,sum:integer;
begin
clrscr;
randomize;
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
writeln('Исходная матрица: ');
for i:=1 to n do
  begin
  for j:=1 to m do
  begin
  e[i,j]:=random(10)-5;
  write(e[i,j]:4);
  end;
  writeln;
end;
for i:=1 to n do
begin
  sum:=1;
  for j:=1 to m do
  sum:=sum*e[i,j];
  d[i]:=sum;
  end;
writeln;
writeln('Результирующий одномерный массив D: ');
for i:=1 to n do
writeln('D[',i,'] =',d[i]);
readkey;
end.

лузер1408 улыбнуло