Напишите программу, которая в последовательности натуральных чисел определяет минимальное положительное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательност...
Напишите программу, которая в последовательности натуральных чисел определяет минимальное положительное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется положительное число, делящееся нацело на 5. Количество чисел не превышает 1000. Введённые числа по абсолютной величине не превышают 30 000. Программа должна вывести одно число – минимальное положительное число, кратное 5.
Гость
Ответ(ы) на вопрос:
ГостьОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ УЗКЦЕЛ;
n, мин, сч: УЗКЦЕЛ;
УКАЗ
мин := 0;
n := Приём.Число();
СОЗДАТЬ(массив, n);
Вывод.Цепь("^");
ОТ сч := 0 ДО n - 1 ВЫП
массив[сч] := Приём.Число();
Вывод.Цепь(" ");
ЕСЛИ массив[сч] ДЕЛИТЬ 5 = 0 И массив[сч] < мин ТО
мин := массив[сч]
КОН
КОН;
Вывод.ЧЦел("^%d", мин, 0, 0, 0)
КОН Задание.
Не нашли ответ?
Похожие вопросы