Question

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

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<min) then min:=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.