Question

создайте программу на языке паскаль​

Answer 1

var a:array of integer;

N,i:integer;

p:biginteger;

BEGIN

readln(N);

SetLength(a,N);

p:=1;

for i:=0 to (N-1) do begin

read(a[i]);

p:=p*a[i];

end;

writeln(p);

end.