Question

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

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) and (a mod 5=0) then

min:=a;

end;

writeln(min);

end.