var a:array[1..5,1..3] of integer;
b:array[1..5] of integer;
i,j,p:integer;
begin
writeln('Массив А ');
for i:=1 to 5 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j]:3)
end;
writeln
end;
writeln;
for i:=1 to 5 do
begin
p:=1;
for j:=1 to 3 do if a[i,j]<>0 then p:=p*a[i,j];
b[i]:=p
end;
write('Массив B ');
for i:=1 to 5 do write(b[i],' ')
end.
Объяснение:
Не учитывает ситуацию когда все элементы строки равны 0. По условию непонятно, что делать в этом случае.
