Question

Напишите программу, которая в последовательности натуральных чисел определяет максимальное четное число.
Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное число.
Кол-во чисел не превышает 1000. Введенные числа не превышают 30 000.
Программа должна вывести одно число - максимальное четное число.
Пример работы программы:
Входные данные Выходные данные
3 _______________42
10
99
42

Answer 1

Program n1;
var i,a,max,n: integer;
begin
max:=0;
readln(n);
if n<1000 then for i:=1 to n do
begin
readln(a);
if ( a mod 2=0) and (max<a) then max:=a;
end;
writeln(max);
end.