Question

Напишите программу,которая в последовательности натуральных чисел определяет максимальное четное число, оканчивающееся на 4. Программа получает на вход количество чисел в последовательности,а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число - максимальное четное число, оканчивающееся на 4.

Answer 1

var i,a,n,b:integer;

begin

read(n);

for i:= 1 to n do

begin

read(a);

if (a mod 10=4) and (a>b) then b:=a;

end;

write(b);

end.