Question

Напишите программу, которая в последовательности натуральных чисел определяет минимальное положительное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется положительно число, делящееся нацело на 5. Количество чисел не превышает 100. Введенные числа по абсолютной величине не превышают 30 000. Программа должна вывести одно число - минимальное положительно число, кратное 5. Входные данные: 4 -5 10 6 25 Выходные данные: 10 Программу надо на Паскале.

Answer 1

Var
   A,Min:integer;
   N:byte;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
    Begin
    Read(A);
    if (A>0)and(A mod 5 = 0)and(A < Min) then Min:=A;
    End;
Write(Min)
End.

Answer 2

var a:array[1..100] of integer;
k,i,Min:integer;
begin
Min:=30001;
write('Введите кол-во чисел ');
Read(k);
For k:= 1 to k do
begin
write('Введите число ');
Read(i);
if (i mod 5 = 0)and(i < Min)and(i>0) then
Min:=i;
end;
Write('Ответ -> ',Min);
end.