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