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

сымбат64 сымбат64    1   29.09.2019 04:50    1

Ответы
merey221 merey221  09.10.2020 01:59

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


Написать программу на паскале. федя с клавиатуры последовательность натуральных чисел. он хочет полу
ПОКАЗАТЬ ОТВЕТЫ
rrr46 rrr46  09.10.2020 01:59
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.


Написать программу на паскале. федя с клавиатуры последовательность натуральных чисел. он хочет полу
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика