Вывести пять чисел,найти их сумму произведения и среднее - вопрос №4386222 от Cracolla1 10.01.2021 23:42

Question

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

Cracolla1 · Answer

//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.