Закодируйте и декодируйте рисунок замок

list_number = []    # Создали список, сюда заносим числа.

number = int(input())   # Вводим число

while number != 0:    # Проверяем на равенство число нулю

   list_number.append(number)    # Добавляем число в список

   number = int(input())   # Вводим след.число

if list_number: # Если список не пуст

   # Фильтруем список(возвращаем список только с четными числами) и выбираем максимальное

   result_number = max(list(filter(lambda x: x % 2 == 0, list_number)))    

   print("Result: {0}".format(result_number))  # Выводим результат

Объяснение:

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln;
  Writeln('Max=',a.ElementsByRow.Max)
end.

Пример
Количество строк и столбцов в матрице: 5 8
*** Исходная матрица ***
  37  27  -8 -40 -85 -36  62  90
 -60 -14 -18   0 -50  77 -19 -36
  14 -98 -80  81  -8  83  84  26
 -65  74  12 -77 -84  -4 -51 -93
  94  34  45  23 -53 -55  55 -45

Max=94