Question

Задан одномерный массив из N чисел. Сосчитать:сумму,произведение и среднее арифметическое всех элементов массива

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

  var N:=readinteger('Введите N=');

  var mas:=ArrRandom(N,-99,99); mas.Println;

  Writeln('суммa=',mas.Sum);

  Writeln('среднее арифметическое=',mas.Average);

  Writeln('произведение=',mas.Aggregate(biginteger(1),(x,y)->x*y));

end.