Последовательность состоит из различных натуральных чисел и завершается числом 0. определите значение второго по величине элемента в этой последовательности. гарантируется, что в последовательности есть хотя бы два элемента. решение паскаль или с++ желательно с пояснениями.
begin
(ReadSeqIntegerWhile(t->t<>0)+Seq(0)).SortedDescending.Skip(1).First.Println
end.
Пояснять особо нечего. Ввели последовательность, включая ноль. Отсортировали по убыванию. Пропустили первый элемент, взяли следующий и вывели.