90б! дано n целых чисел.вывести наибольшее четное.если четных нет, вывести слово no. во входном потоке в первой строке задано целое число n - количество элементов числовой последовательности (0 < n < 100). во второй строке через пробел перечислены значения элементов целочисленной последовательности. значения элементов по модулю не превышают 30000. в выходной поток вывести единственное целое число или слово 'no'.
var n,a,max,i:integer;
begin
readln(n);
max:=-30001;
for i:=1 to n do
begin
read(a);
if (a mod 2=0)and(a>max) then max:=a;
end;
if max<>-30001 then writeln(max)
else writeln('No');
end.
Пример:
5
12 65 74 87 64
74