суббота, 2 декабря 2017 г.

ОГЭ-20.2: 4DD2D2

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

Пример работы программы:


Входные данные
Выходные данные
3
18
9
31
9

Ответ:
VaR a,b,n,i:integer; // а - число из последовательности, b - минимум,
// n - количество чисел, i - счетчик 
BeGiN
 readln (n); // Количество чисел <1001
 b:=30001; // Инициализация минимума большего любого числа
   for i:=1 to n do // Повторение ввода чисел n раз с проверкой
     begin
       readln (a); // По условию <|300001|
       if (a mod 9 =0) and (a<b) // Если число кратно 9 И минимально
         then b:=a; // То задать новый минимум
     end;
 writeln (b); // Вывод ответа
end.

Комментариев нет:

Отправить комментарий