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

Программа, которая в последовательности натуральных чисел определяет максимальное четное двузначное число. Последовательности нет, поэтому создаём её в виде массива.

  a: array [1..20] of integer; // Создаём массив из 20 элементов

  max: integer; // и переменную для хранения максимального значения

 i := 1 20

     a[i] := random(0, 200); // Заполняем натуральными числами

     write(a[i] + '  ');     // Выводим на экран для проверки программы

 ;

 i: integer a// Проходим по элементам массива

    (i.ToString().Length = 2) (i mod 2 = 0)// Если 2хзн и чёт,то

         (max < i) max := i;  // Если макс меньше, то макс=новый

 writeln('максимальное четное двузначное число: ' + max);

1. Спасибо