Ответ
1. Напишите программу, которая в последовательности натуральных чисел
определяет минимальное число, кратное 3. Программа получает на Вход
количество чисел в последовательности, а затем сами числа в
последовательности всегда имеется число, кратное 3. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа долина
Вывести одно число — минимальное число, кратное 3.
1. Напишите программу, которая в последовательности натуральных чисел
определяет минимальное число, кратное 3. Программа получает на Вход
количество чисел в последовательности, а затем сами числа в
последовательности всегда имеется число, кратное 3. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа долина
Вывести одно число — минимальное число, кратное 3.
Answers & Comments
===== PascalABC.NET =====
begin
var n := ReadInteger;
ReadSeqInteger(n).Where(p -> p mod 3 = 0).Min.Println
end.