Помогите пожалуйста:))))дан двумерный массив А(М; N) из случайных однозначных чисел.найти произведение элементов каждой строки этого массива( в программе паскаль)

1

Ответы и объяснения

2013-11-21T00:32:44+04:00
В общем виде так(выводит матрицу случайных чисел и вектор произведений их сток:
program test;
var
 A:array[1..10,1..10] of integer;
 B:array[1..10] of integer;
 i,j:integer;
begin
for i:=1 to 10 do
 begin
 B[i]:=1;
 for j:=1 to 10 do
  begin
  A[i,j]:=random(10);
  write(A[i,j],' ');

  B[i]:=B[i]*A[i,j];
  end;
 writeln;
 end;

writeln;
for i:=1 to 10 do
write(B[i],' ' );
readln;
end

вообще то попросили произведение а не сумму
Не заметил, поправил.
Спасибо большое))