Создайте массив из n

элементов (1 < n < 20) и найдите произведение всех его элементов.

Элементы массива вводятся генератором случайных чисел.

Var

a: array [1 ... 20] of integer;

i, n: integer;

k: longint;

begin

readln (n) ;

k : = 1;

for i : = 1 to n do

begin

a[i] : = random (10) ;

write (' ', a[i]) ;

end;

writeln () ;

for i : = 1 to n do

k : = k * a[i];

writeln (k) ;

end.

var

a: array of integer;

i, n: integer;

k: longint : = 1;

begin

readln (n) ;

a : = new integer[n];

n - = 1;

for i : = 0 to n do

begin

a[i] : = random (10) ;

writeln ('a[', i, '] = > ', a[i]) ;

end;

writeln () ;

foreach i in a do

k * = i;

writeln (k) ;

end.