===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -5, 15);
a.Println;
var Y := ReadInteger('Y =');
a.Count(p -> p < Y).Println
end.
Т.к язык не указан, написал на c++.
Программа и пример работы на скрине.
Объяснение:
Вводим с клавиатуры число Y.
В цикле заполняем массив случайными числами и выводим его на экран.
Обнуляем переменную для хранения количества.
В цикле сравниваем каждый элемент с Y, если он меньше, то инкрементируем переменную количества.
Выводим результат на экран.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -5, 15);
a.Println;
var Y := ReadInteger('Y =');
a.Count(p -> p < Y).Println
end.
Т.к язык не указан, написал на c++.
Программа и пример работы на скрине.
Объяснение:
Вводим с клавиатуры число Y.
В цикле заполняем массив случайными числами и выводим его на экран.
Обнуляем переменную для хранения количества.
В цикле сравниваем каждый элемент с Y, если он меньше, то инкрементируем переменную количества.
Выводим результат на экран.