Question

Найти среднее арифметическое элементов массива.Найти сумму элементов массива,которые меньше среднего арифметического

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

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

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 var avg := a.Average;

 Println('Ср.арифметическое', avg);

 Println('Сумма элементов, меньших ср. арифм.',

     a.Where(t -> t < avg).Sum)

end.

n= 15

-8 -28 17 -40 -26 15 47 -5 -31 -31 29 -31 17 35 -14

Ср.арифметическое -3.6

Сумма элементов, меньших ср. арифм. -214