Решите,проверьте в паскале и только потом отправляйте.
Создайте массив из n
элементов (1 < n < 20) и найдите произведение всех его элементов.
Элементы массива вводятся генератором случайных чисел.

var  a: array [1..20] of integer;  i, n: integer;  k: longint;begin  k := 1;  readln(n);  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.