помогите пожалуйста:))))дан двумерный массив А(М; N) из случайных однозначных чисел.найти произведение элементов каждой строки этого массива( в программе паскаль)
Answers & Comments
Megacoocker
В общем виде так(выводит матрицу случайных чисел и вектор произведений их сток: 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
1 votes Thanks 1
morozovmaxim25
вообще то попросили произведение а не сумму
Answers & Comments
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