Question

Написать программу на паскале. федя с клавиатуры последовательность натуральных чисел. он хочет получить и вывести на экран максимально возможную сумму трех чисел из последовательности, каждое из которых оканчивается на цифру 3. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, оканчивающееся на 3. количество чисел не превышает 10 в 6. введённые числа не превышают 30000. программа должна вывести одно число - максимальную сумму трех чисел, каждое из которых оканчивается на цифру 3. если чисел, отвечающих условия не нашлось, выводится 0. пример: вход: 6 7 13 15 3 23 103 вывод: 139

Answer 1

Федя с клавиатуры последовательность PascalABC.NET

Answer 2

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

begin

 var a := ReadArrInteger(ReadInteger).Where(t -> t mod 10 = 3)

                                                                 .SortedDescending;

 Println(a.Count >= 3 ? a.Take(3).Sum : 0)

end.