Напишите программу, которая в последовательности натуральных чисел определяет минимальное положительное число, кратное 5. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется положительно число, делящееся нацело на 5. количество чисел не превышает 100. введенные числа по абсолютной величине не превышают 30 000. программа должна вывести одно число - минимальное положительно число, кратное 5. входные данные: 4 -5 10 6 25 выходные данные: 10 программу надо на паскале.
atexpro444ggvg
3
29.08.2019 20:10
1
Другие вопросы по теме Информатика
WFCPDF
29.12.2020 11:10
КoТuK
29.12.2020 11:12
AnTonnn221
29.12.2020 11:14
Lizaveta984
18.05.2020 07:52
ruslangusen
18.05.2020 07:52
tahliaderma
18.05.2020 07:51
serikbyasy
05.11.2019 23:15
Рост2006
20.07.2019 20:00
Популярные вопросы
- На диагонали bd параллелограмма abcd отметили точки m и k так, что...
3 - Укажите решения системы неравенств -8+4х 0 4-3х -8 1) (-∞; 4) 2) нет...
2 - 2х^2 -3|x|-2=y построить график функции...
1 - Моторная лодка проплыла 4 часа по течению реки и 6 часов против течения...
2 - Чему равно количество теплоты выделится при полном сгорании 100г спирта...
1 - Угол образованный продолжениями боковых сторон равнобедренного треугольника...
1 - Может вскопать одну грядку за 15 минут а сын уже грядку за 20 мин...
3 - Используя данные словаи словосочетание составьте описание молодой...
3 - Почему оценка деятельности петра великого уже более двух веков вызывает...
1 - Все у винни-пуха было m горшочков мёда пятачок подарил ему ещё 24...
2
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.
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.