Иероним
6 год назад
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7.Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящеесянацело на 7.Количество чисел не превышает 1000. Введенные числа не превышают 30 000.Программа должна вывести одно число - минимальное число, делящееся нацело на 7.Входные данные:3111477Выходные данные:14Программу надо на Паскале.
ОТВЕТЫ
Вълчо
Oct 24, 2020
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
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
144
Смежные вопросы:
