Вывести пять чисел,найти их сумму произведения и среднее арифметическое. Числа любые.

Question

Вывести пять чисел,найти их сумму произведения и среднее арифметическое.
Числа любые.

Answer 1

//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию

begin
    var a := ArrRandomInteger(5, -50, 50);
    writeln('Вывод = ', a);
    writeln('Сумма = ', a.Sum);
    writeln('Произведение = ', a.Aggregate(1, (x, y)-> x * y));
    writeln('Среднее арифметическое = ', a.Sum / a.Count);
end.