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

Question

Напишите программу которая в последовательности натуральных чисел определяет минимальное положительное число кратное 5

Comments

Программа получает на вход кол-во чисел в последовательности а затем сами числа. В последовательности всегда имеется положительное число, делящееся нацело на 5

---

Кол-во чисел не превышает 1000. Введённые числа по абсолютной величине не превышают 30 000

---

Программа должна вывести одно число - минимальное положительное число, кратное 5

---

ЭТО ВСЁ ОДНА ПРОГРАММА

Answer 1

Var
  a, n, i, min: integer;

begin
  min := 30000;
  readln(n);
  for i := 1 to n do
  begin
    readln(a);
    if (a mod 5 = 0) and (a < min) then min := a;
  end;
  writeln(min);
end.