program z1;
var a,n,i,k:integer;
begin
k:=0;
read(n);
for i:=1 to n do
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
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