Question

Напишите программу, которая в последовательности натуральных чисел определяет, есть ли в последовательности хотя бы одно нечётное число, большее 100. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000.

Программа должна вывести «YES», если в последовательности есть хотя бы одно нечётное

число, большее 100, и «NO» в противном случае.

Пример работы программы

Входные данные
3 35 145 205
Выходные данные
yes

Answer 1

Ответ:

program z1;

var a,n,i,k:integer;

begin

k:=0;

read(n);

for i:=1 to n do

begin

read(a);

if (a mod 2 = 1) and (a>100) then k:=k+1;

end;

if k>0 then write('YES') else write ('NO')

end.

Объяснение:

Используем цикл с параметром

Проверяем является ли введённое число нечётным и больше 100, если да, то увеличиваем переменную k на 1

Используем полный условный оператор, если k > 0 выводим YES, иначе выводим NO