Вывести пять чисел,найти их сумму произведения и - вопрос №4385320 от Ріo78 16.03.2020 08:28

Question

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

Ріo78 · 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.