Сформировать целочисленный массив из 15 произвольных чисел. Подсчитать количество элементов исходного массива, значение которых менее его среднего арифметического

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(15, -50, 50);

 a.Println;

 var avg := a.Average;

 a.Where(t -> t < avg).Count.Println

end.

Пример3 -12 -31 -35 -24 -31 33 -40 -36 -23 39 36 -24 33 -4910

const n=15;

var a:array [1..n] of integer;

i,s,k:integer;

begin

for i:= 1 to n do

begin

a[i]:= Random(8)+1;

s:=s+a[i]

end;

writeln('Массив: ',a);

for i:= 1 to n do if a[i]<s/n then k:=k+1;

writeln('Количество элементов массива меньше среднего арифметического всех элементов массива равно: ',k)

end.