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

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

Числа, следующие за числом 0, считывать не нужно.

Входные данные
Вводится последовательность целых чисел, заканчивающаяся числом 0 (само число 0 в последовательность не заходит).

Выходные данные
Выведите ответ на задачу.



Напишите прогу на паскале, пожалуйста

Задать свой вопрос
1 ответ
Var
   A,Max1,Max2:integer;
Begin
Max1:=0;
Max2:=0;
Repeat
Read(A);
if Agt;Max1 then
   Begin
   Max2:=Max1;
   Max1:=A;
   End;
Until A=0;
WriteLn(Max2);
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт