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