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

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