Создайте массив a из 18 целых чисел, принадлежащих полуинтервалу [0;30)
Подсчитайте k количество элементов, значение которых превышает 15
Подсчитайте k количество элементов, значение которых превышает 15
More Questions From This User See All
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(18,0,30); a.Println;
Writeln('Элементов, превышающих значение 15: ',a.Where(x->x>15).Count)
end.
Пример
24 26 26 25 15 22 11 16 5 28 5 3 13 9 15 24 2 0
Элементов, превышающих значение 15: 8