Напишите программу, которая в последовательности натуральных чисел определяет минимальное четное двузначное число. Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное двузначное число. Кол-во чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число - минимальное четное двузначное число последовательности. Выполнить по примеру ниже:
var
a, // элемент последовательности
// натуральных чисел (<=30000)
i, // порядковый номер элемента а
n, // количество элементов а (<=1000)
m: // минимальное четное двузначное число
// среди элементов а
integer;
begin
read(n);
m := 98;
for i := 1 to n do
begin
read(a);
if (a >= 10) and (a <= 99) and (a mod 2 = 0) and (a < m) then
m := a;
end;
write(m);
end.
Объяснение:
Не форматированный код:
var
a, // элемент последовательности
// натуральных чисел (<=30000)
i, // порядковый номер элемента а
n, // количество элементов а (<=1000)
m: // минимальное четное двузначное число
// среди элементов а
integer;
begin
read(n);
m := 98;
for i := 1 to n do
begin
read(a);
if (a >= 10) and (a <= 99) and (a mod 2 = 0) and (a < m) then
m := a;
end;
write(m);
end.