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

tatiana342 tatiana342    2   15.09.2019 12:40    1

Ответы
cvthidok cvthidok  07.10.2020 17:11
//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.
Задан одномерный массив из n чисел. сосчитать: сумму,произведение и среднее арифметическое всех элем
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика