Question

Создать массив а из десяти целых чисел, принадлежащих промежутку [0;20). вывести полученный массив на экран. вычислить количество элементов массива, значения которых превышают средне арифметическое значений его элементов

Answer 1

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=ArrRandom(10,0,19); a.Println;
  var m:=a.Average;
  Writeln('k=',a.Where(x->x>m).Count)
end.

Тестовое решение:
10 10 5 5 1 7 17 0 12 18
k=5