Паскаль.

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

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.