Question

Напишите программу, которая в последовательности натуральных чисел определяет минимальное положительное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется положительное число, делящееся нацело на 5. Количество чисел не превышает 1000. Введённые числа по абсолютной величине не превышают 30 000. Программа должна вывести одно число – минимальное положительное число, кратное 5.

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  массив: ДОСТУП К РЯД ИЗ УЗКЦЕЛ;
  n, мин, сч: УЗКЦЕЛ;

УКАЗ
  мин := 0;
  n := Приём.Число();
  СОЗДАТЬ(массив, n);
  Вывод.Цепь("^");
  ОТ сч := 0 ДО n - 1 ВЫП
    массив[сч] := Приём.Число();
    Вывод.Цепь(" ");
    ЕСЛИ массив[сч] ДЕЛИТЬ 5 = 0 И массив[сч] < мин ТО
      мин := массив[сч]
    КОН
  КОН;
  Вывод.ЧЦел("^%d", мин, 0, 0, 0)

КОН Задание.