Дан массив из 8 элементов . Определить а) сумму всех элементов массива ;б) произведение...

Question

Дан массив из 8 элементов . Определить а) сумму всех элементов массива ;б) произведение всех элементов массива ;в) среднее арифметическое всех элементов массива

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(8,-10,10); a.Println;
  Writeln('S=',a.Sum,', П=',a.Aggregate(1,(x,y)->x*y),', m=',a.Average)
end.

Пример
9 -1 6 -10 0 -6 8 1
S=7, П=0, m=0.875