Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, делящееся нацело на 7. количество чисел не превышает 1000. введенные числа не превышают 30 000. программа должна вывести одно число - минимальное число, делящееся нацело на 7. входные данные: 3 11 14 77 выходные данные: 14 программу надо на паскале.
kapcha228
1
29.08.2019 20:10
1
Другие вопросы по теме Информатика
nikita228928
29.04.2020 15:01
Valyshka11
29.04.2020 15:01
ERESYUR
29.04.2020 15:01
НиколайСПБ
29.04.2020 15:01
embazuka
24.08.2019 22:40
помогитесдомашкой3
23.09.2019 13:05
илья1974
07.06.2019 14:50
mihailgrand
07.06.2019 14:50
stupinaksp029hy
07.06.2019 13:14
Популярные вопросы
- Проверьте на ошибки( пунктуац., орфогр., разделить на обзацы и т. до звонка...
2 - Почему xvii столетие называют переходным временем?...
3 - Разложите на множители: m^3 - m^2 - 9m + 9...
1 - Всё больше машин приходит на человеку.и кое кто начинает думать,будто они совсем...
2 - Решить ))из 2х городов расстояние между которыми 350км,одновременно в противоположных...
2 - Подчеркнуть в словах безударные слоги,поставить ударение,сопоставить в каждой...
2 - Много . подготовьте, используя дополнительную , реферат по творчеству своего...
2 - Через какие органы происходит удаление из организма уг лекислого газа и вредных...
1 - Постройте график уравнения: а) 3(x-2y)-2(x-4y)=4...
1 - Від села до міста легкова машина доїхала за 3 год. вантажна за 4. знайдіть...
3
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.
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