Найдите количество элементов массива, которые отличны - вопрос №7502909 от Варёна 13.12.2022 00:24

Question

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

Варёна · Answer

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