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

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

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

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



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

Ответы 1

  • Var   A,Max1,Max2:integer;BeginMax1:=0;Max2:=0;RepeatRead(A);if A>Max1 then   Begin   Max2:=Max1;   Max1:=A;   End;Until A=0;WriteLn(Max2);End.
    • Автор:

      pecan
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years