Найти значение наимньшего числа, из всех четных введеных чисел, не превышая 30000

Question

Найти значение наимньшего числа, из всех четных введеных чисел, не превышая 30000

Comments

Что нужно сделать? Написать программу?

---

Да

---

Паскаль?

---

Да

---

Ты знаешь как это решить?

---

да

Answer 1

Var n, i: Integer;
      a, min: LongInt;
Begin
   min := 30000;
   readln(n);
   for i := 1 to n do begin
      read(a);
      if (a mod 2=0) and (a < min) then min := a;
   end;
   writeln(min);
End.

Comments

Спасибо