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

Question

Помогите даю 20 баллов Напишите программу, которая в последовательности натуральных чисел определяет минималь- ное чётное число. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется чётное число. Количество чисел не превышает 1000 Введённые числа не превышают 30 0 Программа должна вывести одно число — минимальное чётное число. Пример работы программы: Входные данные Выходные данные 8 4 3 20 6 6

Answer 1

Ответ:

Объяснение:

var

   i, min, n, d: integer;

begin

   readln(n);

   min:=30000;

   

   for i := 1 to n do

   begin

       readln(d);

       if (d mod 2 = 0) and (min>d) then

           min:=d

   end;

   

   writeln(min);

end.