Question

Необходимо написать программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 2.

Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 2.

Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное число, оканчивающееся на 2.

Answer 1

var n,a,i,max:integer;

begin

readln(n);

max:=0;

for i:=1 to n do

begin

read(a);

if (a mod 10=2)and(a>max) then max:=a;

end;

writeln(max);

end.

Пример:

17 20 12 41 15 5 52 10

52