Помогите написать программу в паскаль АBC задание: Напишите программу которая в...

Question

Помогите написать программу в паскаль АBC задание:
Напишите программу которая в последовательности натуральных чисел определяет чётное минимальное число. При этом кол-во введённых чисел неизвестно. Но не превышает 1000. Введённые числа не превышают 30000.В последовательности всегда имеется чётное число. Программа должна вывести это одно минимальное чётное число.

Comments

Напишите условие полностью, пожалуйста

---

Входные данные: кол-во 4 числа 3 20 6 8 выходные данные 6

---

То есть, количество вводимых чисел тоже вводится

---

да

---

Большое спасибо

Answer 1

Var N,A,Min:integer;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
    Begin
    Read(A);
    if (A mod 2 = 0)and(A < Min) then Min:=A;
    End;
WriteLn(Min)
End.