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

где следует запускать это я и без тебя знаю

Баллы даются, чтобы вы задания свои нахяляву не кидали.

Я понял. Мало ты глупый, еще и хам.

от глупого и слышу

выпендриваться меньше надо

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