Последовательность состоит из различных натуральных чисел и завершается числом 0. Определите значение второго по величине элемента в этой последовательности. Гарантируется, что в последовательности есть хотя бы два элемента.
Решение паскаль или С++
Желательно с пояснениями.
Ответы
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018
Внимание! Если программа не работает, обновите версию!
begin
(ReadSeqIntegerWhile(t->t<>0)+Seq(0)).SortedDescending.Skip(1).First.Println
end.
Пояснять особо нечего. Ввели последовательность, включая ноль. Отсортировали по убыванию. Пропустили первый элемент, взяли следующий и вывели.
Ответ дал:
0
нужно на pascal 3.0
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад