Помогите пожалуйста,срочно!!!!
ООООЧЕНЬ СРОЧНО

Ответ:

Объяснение:

Pascal:

var

a:array[1..1000] of integer;

n,i:integer;

begin

read(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n do

if (a[i] mod 2=0) and (a[i]>100) then

write('YES')

else

write('NO');

end.