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

Question

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

Answer 1

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.

Answer 2

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.