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

Программа получает на вход количество чисел в последовательности, а затем сами

числа. В последовательности всегда имеется положительно число, делящееся нацело на 5.

Количество чисел не превышает 100. Введенные числа по абсолютной величине

не превышают 30 000.

Программа должна вывести одно число - минимальное положительно число, кратное 5.

Входные данные:

4

-5

10

6

25

Выходные данные:

10

Программу надо на Паскале.

Question

Информатика

Асюта

30 апреля, 07:31

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

Программа получает на вход количество чисел в последовательности, а затем сами

числа. В последовательности всегда имеется положительно число, делящееся нацело на 5.

Количество чисел не превышает 100. Введенные числа по абсолютной величине

не превышают 30 000.

Программа должна вывести одно число - минимальное положительно число, кратное 5.

Входные данные:

4

-5

10

6

25

Выходные данные:

10

Программу надо на Паскале.

+4

Ответы (2)

Знаете ответ на вопрос?

Кузьмич · 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 0) then

Min:=i;

end;

Write ('Ответ - > ', Min) ;

end.