Как разобраться?

[k4k7u3]

Есть задание вывсети матрицу-столбец, состоящую из элементов, равных произведению элементов матрицы А[5,5] по строкам.
Я написал программу но нужно ее представить через цикл. Я не могу понять как??
можете помочь???

 Program matrica;
 var A: array [1..5,1..5] of integer;
 var B: array [1..5] of integer;
 var S : real;i,j : integer;
 var x,y,z,t,r: integer;
 Begin
 x:=1;y:=1;z:=1;t:=1;r:=1;
 for i := 1 to 5 do
  for j := 1 to 5 do
   A[i,j]:= random(10);
 for i:= 1 to 5 do begin
  for j:= 1 to 5 do
   write (A[i,j] :3);
   writeln
 end;
 for j:=1 to 5 do
 begin
 x:=x*A[1,j];
 y:=y*A[2,j] ;
 z:=z*A[3,j] ;
 t:=t*A[4,j] ;
 r:=r*A[5,j] ;
 end;
B[1]:=x;
B[2]:=y;
B[3]:=z;
B[4]:=t;
B[5]:=r;
for j:= 1 to 5 do
 writeln (B[j]);
 end.

[GetMax]

Я написал программу но нужно ее представить через цикл.

For i:=1 to 5 do
Begin
  Proizv:=1;
  For j:=1 to 5 do
  Begin
     Proizv:=Proizv*A[i,j]
  End;
  B[i]:=Proizv;
End;
For i:=1 to 5 do Write(B[j],' ')

[k4k7u3]

спс огромное!!

можете еще подсказать почему оно мне выдает при вот такой программе результат 0????

 Program laba_4;
 var A: array [1..5,1..5] of integer;
 var B: array [1..5] of integer;
 var i,j : integer;
 var proizv: integer;
 Begin
 proizv:=1;
 for i := 1 to 5 do
  for j := 1 to 5 do
   A[i,j]:= random(10);
 for i:= 1 to 5 do begin
  for j:= 1 to 5 do
   write (A[i,j] :3);
   writeln
 end;
 for i:=1 to 5 do
 Begin
     for j:=1 to 5 do
     Begin
       Proizv:=Proizv*A[i,j];
    end;
    B[i]:=Proizv;
    end;
for i:=1 to 5 do
Writeln(B[j]);
end.

3 9 0 8 7
3 4 5 8 7
5 1 5 8 3
5 2 6 4 6
3 0 8 2 4

0
0
0
0
0

[ROMA2PVT]

for i:=1 to 5 do
Writeln(B[j]);
end.

i.........

[andrewpalkin]

Сообщение от k4k7u3

можете еще подсказать почему оно мне выдает при вот такой программе результат 0????

После вот этой строки в коде :

B[i]:=Proizv;

Добавить вот эту еще :

proizv:=1;

[k4k7u3]

Сообщение от ROMA2PVT

i.........

аа точно)) а я искал ошибку мин 20 не мог найти)))))
спасибо огромное)

Сообщение от andrewpalkin

После вот этой строки в коде :

B[i]:=Proizv;

Добавить вот эту еще :

proizv:=1;

спс) я понял что она изначально была равно 0)))))