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

Question

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 1. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 1. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, оканчивающееся на 1. Пример работы программы: Входные данные:3 11 21 31 Выходные данные:31

Answer 1

PascalABC.NET 3.2
begin
  var n := readinteger;
  var max := 0;

  for var i := 1 to n do
  begin
    var temp: integer;
    read(temp);
    if (temp mod 10 = 1) and (temp > max) then
      max := temp;
  end;
  write(max);
end.