В одномерном массиве найти произведение ненулевых элементов
( Задать рандомно )

Program n1;const n=10;var a: array [1..n] of integer;i,p: integer;beginrandomize;p:=1;for i:=1 to n do a[i]:=random(10);for i:=1 to n do if a[i]<>0 then p:=p*a[i];writeln(p);end.