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

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.