Последовательность состоит из различных натуральных чисел и завершается числом 0....

Question

Последовательность состоит из различных натуральных чисел и завершается числом 0. Определите значение второго по величине элемента в этой последовательности. Гарантируется, что в последовательности есть хотя бы два элемента. Решение паскаль или С++ Желательно с пояснениями.

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 (ReadSeqIntegerWhile(t->t<>0)+Seq(0)).SortedDescending.Skip(1).First.Println

end.

Пояснять особо нечего. Ввели последовательность, включая ноль. Отсортировали по убыванию. Пропустили первый элемент, взяли следующий и вывели.

Comments

нужно на pascal 3.0