Question

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

Answer 1

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Where(p -> p mod 9 <> 0).Min.Print

end.