Массив, Паскаль

[RRRRRR]

Помогите пожалуйста: Дана действительная матрица 3*3 , определить числа b1...b3, равные соотвественно произведениям элементов строк.

[Alex Cones]

В чем проблема? http://www.programmersforum.ru/showthread.php?t=70310

[RRRRRR]

Там нет таких задач

[ОДИНОЧЕСТВО В СЕТИ]

b1:=1;
b2:=1;
b3:=1;
for i:=1 to 3 do begin
b1:=m[1,i]*b1;
b2:=m[2,i]*b2;
b3:=m[3,i]*b3;
end;
writeln(b1:6:3,b2:6:3,b3:6:3);

[Манжосов Денис :)]

program foru;
var
  m: array [1..3, 1..3] of integer;
  b: array [1..3] of integer;
  i,j: integer;
begin
  Randomize;
   for i := 1 to 3 do
   begin
   b[i] := 1;
    for j := 1 to 3 do
    begin
      m[i,j] := Random(20);
      Write(m[i,j], ' ')
    end;
   WriteLn;
   end;
   for i := 1 to 3 do
   begin
    for j := 1 to 3 do
      b[i] := b[i] * m[i,j];
    WriteLn(b[i]);
end;
ReadLn;
end.

Держи