Паскаль. В одновременном массиве найти произведение ненулевых элементов.

Question

Паскаль.
В одновременном массиве найти произведение ненулевых элементов.

Answer 1

Program proizv;
var i, n, p:integer; a:array[1..10] of integer;
begin
p:=1;
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
writeln('Введите число');
readln(a[i]);
If a[i]<>0 then
p:=p*a[i];
end;
writeln('p=',p);
end.