• Последовательность состоит из натуральных чисел, не превосходящих 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 k<>0 do begin    if k>amax then begin       bmax:=amax;      amax:=k;    end;    readln(k);  end;  println('Наибольший: ',amax,'Второй наибольший: ',bMax); end.
    • Автор:

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

Войти через Google

или

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

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

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