Найдите количество элементов массива, которые отличны - вопрос №7502341 от elinochek1 24.05.2023 10:46

Question

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

elinochek1 · 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