Дана вещественная таблица А(10). Найдите количество элементов таблицы, больших среднего...

Question

Дана вещественная таблица А(10). Найдите количество элементов таблицы, больших среднего арифметического всех ее элементов. (Паскаль)

Answer 1

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var a:=ArrRandomReal(10,0,9); a.Println;
  var c:=a.Average;
  Writeln('Кол-во элементов, больших ср.арифм. равно ',
    a.Where(x->x>c).Count)
end.

Тестовое решение:
2.59730962412307 5.74823168187786 0.183425193737925 1.40910695977933 1.53072231054805 1.10500636608573 2.72817251073577 5.34373824686917 8.61965516750685 6.63805930904954
Кол-во элементов, больших ср.арифм. равно 4