Question

Помогите написать программу на паскале.

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

Answer 1

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

41c1c087790a80200e3cbc968b84e5c8.pas

Answer 2

И у вас ввод не соответствует вводу в условии.

Answer 3

что не так с вводом?

Answer 4

Там просто вводятся числа, без текстовых подсказок и проверок, из-за ввода в 1 ряд в вашем коде могут возникнуть проблемы при проверке в тестовой системе

Answer 5

не написано что нужно вводить одной строкой

Answer 6

Вам пример ввода предоставили

Answer 7

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.

Answer 8

Нет слова типа "должно", нет условия "иначе" что делать, если вдруг число будет больше? Нет такого пункта как запросить заново ввод

Answer 9

begin
var n := ReadInteger('n =');
var a := ReadArrInteger(n);
if a.Where(x -> x mod 10 = 3).Count >= 3 then
a.Where(x -> x mod 10 = 3).SortedDescending.Take(3).Sum.Println
else Print(0)
end.

Answer 10

Способов много, n необязательно отдельно получать, она дальше же у вас нигде не используется

Answer 11

это чтоб человек не путался при вводе, а вообще это все должно оговариваться, наверное

Answer 12

А, единсвенное забыл написать, когда элементов мало будет, завтра исправлю