Решите,проверьте в паскале и только потом отправляйте.Создайте массив из n элементов (1 <...

Question

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

Answer 1

Const
  n = 20;

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

begin
  Randomize;
  p := 1;
  for i := 1 to n do
  begin
    a[i] := Random(21) - 10;
    p := p * a[i]
  end;
  writeln('Произведение всех элементов равно ', p:0:0)
end.

Тестовое решение:

Произведение всех элементов равно -15431472000000

Answer 2

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.