смурфик15
30.05.2020 10:48

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ислам1110
05.10.2020 23:53
Var
   A,Max1,Max2:integer;
Begin
Max1:=0;
Max2:=0;
Repeat
Read(A);
if A>Max1 then
   Begin
   Max2:=Max1;
   Max1:=A;
   End;
Until A=0;
WriteLn(Max2);
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота