Дан массив из 50 элементов. Найти произведение всех элементов.

Question

Дан массив из 50 элементов. Найти произведение всех элементов.

Answer 1

var
  a: array [1..50] of integer;
  l: longint;

begin
  for l := 1 to 50 do
  begin
    a[l] := random(-5, 5);
    write(a[l], ' ');
  end;
  l := 1;
  writeln();
  foreach k: integer in a do
    l *= k;
  writeln(l);
end.