Question

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

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Where(p -> p mod 3 = 0).Min.Println

end.