Дано 10 чисел. Найти минимальное среди чисел, которые делятся ** 5.

Question

Дано 10 чисел. Найти минимальное среди чисел, которые делятся на 5.

Comments

На паскале?

---

Да

Answer 1

program n_1;

var a, i, min: integer;

begin

read(a);

min:=0

for i:=1 to 10 do

begin

if (a

min:=a;

end;

writeln(min);

end.