Напишите программу которая в последовательности натурельных чисел определяют есть ли в последовательности хотя бы одно нечëтное число больше

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