Дан одномерный массив размером 15 элементов, заполненный рандомно от 0 до 100. Найти сумму и произведение элементов массива.
Заранее

Объяснение:

program HelloWorld;

var arr : array [1 .. 15] of Integer;

   sum, prod : real;

   i : Integer;

begin

  randomize;

  for i := 1 to 15 do arr[i] := Random(100);

  sum := 0; prod := 1;

  for i := 1 to 15 do begin

  sum := sum + arr[i];

  prod := prod * arr[i];

  end;

  writeln('sum = ', sum);

  writeln('prod = ', prod);

end.