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

Question

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

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

Задать свой вопрос

Hlevinskij Aleksej
Информатика
2019-02-22 23:32:59
0
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

НУЖНО ОЧЕНЬ Безотлагательно ОТВЕТ НА ВОПРОС:Сравните географическое положение Северной Америке и

Считая,что длина 1 клеточки одинакова 1 см,начертите прямоугольник,периметр которого равен 22

Тема и мысль стихотворения quot;Муромский срубquot; Андрея Вознесенского. Ниоткуда не копировать.

С какими из веществ будет реагировать LiOH:Zn,ZnCl2,HCl,SO3,Cu,ZnOH2Запишите уравнение

в школьном буфете две чашечки чая, один пирожок и четыре конфеты

на рисунке изображено 8 прямоугольных треугольников с подмогою транспортира и линейки

1:Сколько разных 3значных чисел, наименьших 500, можно составить из чётных цифр?

Помогите пожалуйста по математике,очень надобно!!В 917-б; 918-б

Напиши описание весенней птицы по плану. Озаглавь текст:

помогите пожалуйста, сделать задание за ранее спасибо.

Леонид Чакурин · Answer 1 · 2019-02-22 23:36:45+3:00

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 lt; Min) then Min:=A;
    End;
Write(Min)
End.

Ольга Норцова · Answer 2 · 2019-02-22 23:37:48+3:00

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(alt;min) then min:=a;
end;
writeln(min);
end.

Пример:
3
11
14
77
14

О проекте

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

Добро пожаловать!