Question

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число кратно 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 7.
Количество чисел не превышает 1000. Введённые числа не превышают 30000.
Программа должна вывести одно число - минимальное число кратное 7.
Вводные данные:3, 21, 14, 4
Выходные данные :14

Answer 1

var

   n, a : integer;

   m : integer := 30000;

begin

   write('количество чисел: ');

   readln(n);

   write('числа: ');

   for var i := 1 to n do begin

       read(a);

       if (a mod 7 = 0) and (a < m) then m := a;

   end;

   writeln(m);

end.