Помогите даю 20 баллов
Напишите программу, которая в последовательности натуральных чисел определяет минималь-
ное чётное число.
Программа получает на вход количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется чётное число. Количество чисел не превышает 1000
Введённые числа не превышают 30 0
Программа должна вывести одно число — минимальное чётное число.
Пример работы программы:
Входные данные Выходные данные 8
4
3
20
6
6
Answers & Comments
Ответ:
Объяснение:
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.