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

Question

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

Answer 1

// 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

Comments

Можно в паскаль? Я не знаю этот язык программирования.

---

Но это точно не уровень 10-11 классов

---

С этим впервые сталкиваюсь ArrRandom ReadInteger

---

Печально, спасибо и на этом )