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

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

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

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

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

3

11

14

77

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

14

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

Question

Информатика

Сила

28 марта, 11:41

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

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

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

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

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

3

11

14

77

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

14

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

+5

Ответы (2)

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

Эмилий · Answer 1

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

Урбана · Answer 2

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.