Получить одномерный массив состоящий из произведений ненулевых элементов соответствующих строк матрицы

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

Его можно рассматривать как систему, состоящую из подсистем «аппаратное обеспечение», «программное обеспечение», «информационные ресурсы»Подсистема аппаратного обеспечения выступает в качестве надсистемы для устройств ввода, обработки, хранения и вывода информации.

Операционная система — подсистема программного обеспечения и надсистема, в состав которой входят системные и служебные программы.

Система информационных ресурсов включает в себя системы текстовых и графических файлов, звуковых файлов, файлов с видеоинформацией и т. д.

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var s:=Range(1,ReadInteger('n='),2).Select(x->Rec(x,x*x,x*x*x));
  foreach var e in s do
    Writeln(e.Item1:10,e.Item2:10,e.Item3:10)
end.

Тестовое решение:
n= 20
         1         1         1
         3         9        27
         5        25       125
         7        49       343
         9        81       729
        11       121      1331
        13       169      2197
        15       225      3375
        17       289      4913
        19       361      6859