Question

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

Заранее спасибо!

Answer 1

Ответ:

PascalABC.NET 3.5.1.2290 + .NET Framework 4.7.1

begin

 var A := ReadArrInteger(ReadInteger('Arr length: '));

 A.Where(p -> p mod 9 <> 0).Min.Println;

end.