С помощью датчика случайных чисел создайте массив из 8 вещественных чисел и найдите их...

Question

С помощью датчика случайных чисел создайте массив из 8 вещественных чисел и найдите их произведение
Спасибо заранее))
В Паскаль

Answer 1

Const
  N = 8;
var
  A: array [1..N] of real;
  prod: real;
  i: integer;
begin
  randomize;
  prod := 1;
  // Заполнение массива
  for i := 1 to N do begin
    A[i] := random*10 - 5;
    prod *= A[i];
  end;
  // Вывод произведения на экран
  write('Произведение: ', prod, '.');
end.