Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7. Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число — минимальное число, делящееся нацело на 7. Входные данные: 3 11 14 77 Выходные данные: 14 Программу надо на Паскале.

Вопрос школьника по предмету Информатика

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7.
Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.
Количество чисел не превышает 1000. Введенные числа не превышают 30 000.
Программа должна вывести одно число — минимальное число, делящееся нацело на 7.
Входные данные:
3
11
14
77
Выходные данные:
14
Программу надо на Паскале.

Ответ учителя по предмету Информатика

var n,a,i,min:integer;

begin

readln(n);

min:=30000;

for i:=1 to n do

 begin

 readln(a);

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

 end;

writeln(min);

end.

Пример:

3
11
14
77
14