Ответ:
Т.к язык не указан, написал на c++.
Программа и пример работы на скрине.
Объяснение:
Вводим с клавиатуры число Y.
В цикле заполняем массив случайными числами и выводим его на экран.
Обнуляем переменную для хранения количества.
В цикле сравниваем каждый элемент с Y, если он меньше, то инкрементируем переменную количества.
Выводим результат на экран.
<u><em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em></u>
<u><em>// Внимание! Если программа не работает, обновите версию!</em></u>
begin
ReadlnString('->').Println(':');
end.
<u>Пример</u>
-> Компьютер
К:о:м:п:ь:ю:т:е:р
Решим всё по формуле включений и исключений:
350+200+500-(50+20+10+5)=1050-85=965
Ответ: <u>965</u>
var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='o' then s[i]:='a';
write(s);
end.