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

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
  var max:=a.Max;
  Writeln('k=',a.Where(x->x>=0.9*max).Count)
end.

Пример
n= 20
9 1 -9 -8 -4 3 -5 -8 10 7 -9 1 -5 -4 0 -4 9 6 9 -8
k=4