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.