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

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 -gt; t lt; avg).Sum)

end.

n= 15

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

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

Сумма частей, наименьших ср. арифм. -214