Ответ:

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. По условию непонятно, что делать в этом случае.