Последовательность состоит из естественных чисел, не превосходящих 10^9. Определите значение

Последовательность состоит из естественных чисел, не превосходящих 10^9. Определите значение наибольшего элемента последовательности. Последовательность состоит из разных естественных чисел и заканчивается числом 0. Определите значение второго по величине элемента в этои последовательности. ПОЖАЛУЙСТА, ПОМОГИТЕ

Задать свой вопрос
1 ответ
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var amax,bmax,k:integer;
begin
  readln(k);
  amax:=k; bmax:=k;
  while klt;gt;0 do begin
    if kgt;amax then begin
      bmax:=amax;
      amax:=k;
    end;
    readln(k);
  end;
  println('Наивеличайший: ',amax,'2-ой наивеличайший: ',bMax);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт