Написать программу на паскале. федя с клавиатуры последовательность натуральных чисел. он хочет получить и вывести на экран максимально возможную сумму трех чисел из последовательности, каждое из которых оканчивается на цифру 3. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, оканчивающееся на 3. количество чисел не превышает 10 в 6. введённые числа не превышают 30000. программа должна вывести одно число - максимальную сумму трех чисел, каждое из которых оканчивается на цифру 3. если чисел, отвечающих условия не нашлось, выводится 0. пример: вход: 6 7 13 15 3 23 103 вывод: 139
Федя с клавиатуры последовательность PascalABC.NET
begin
var a := ReadArrInteger(ReadInteger).Where(t -> t mod 10 = 3)
.SortedDescending;
Println(a.Count >= 3 ? a.Take(3).Sum : 0)
end.