Var b,c,d: integer;
a:array [1..100] of integer;
begin
randomize;
writeln('введите длину массива');
readln(b);
d:=1;
for c:=1 to b do begin
a[c]:=random(10);
writeln(a[c]);
if a[c] <> 0 then d:=d*a[c];
end;
writeln('произведение не нулевых элементов массива ',d);
end.