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

Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.

Количество чисел не превышает 1000. Введенные числа не превышают 30 000.

Программа должна вывести одно число - минимальное число, делящееся нацело на 7.

Входные данные:

3

11

14

77

Выходные данные:

14

Программу надо на Паскале.

Question

Информатика

Сила

1 апреля, 05:15

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

Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.

Количество чисел не превышает 1000. Введенные числа не превышают 30 000.

Программа должна вывести одно число - минимальное число, делящееся нацело на 7.

Входные данные:

3

11

14

77

Выходные данные:

14

Программу надо на Паскале.

+2

Ответы (2)

Знаете ответ на вопрос?

Урбана · Answer 1

Var A, Min, N:integer;

Begin

Min:=30001;

Read (N) ;

For N: = 1 to N do

Begin

Read (A) ;

if (A mod 7 = 0) and (A < Min) then Min:=A;

End;

Write (Min)

End.

Эмилий · Answer 2

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
end;

writeln (min) ;

end.

Пример:

3

11

14

77

14