Verified answer

const n=10;

var a:array[1..n] of integer;

i: integer; p: longint;

begin

writeln('Введите элементы массива:');

for i:=1 to n do read(a[i]);

p:=1;

for i:=1 to n do p:=p*a[i];

writeln('p = ',p);

end.

Пример:

Введите элементы массива:

2 -3  4  1 8 -1 5 -7 -2 3

p = 40320