В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
pra02
pra02
10.05.2023 14:57 •  Информатика

Дана последовательность чисел, оканчивающаяся 0.найти два максимальных элемента заданной последовательности. . заранее .)

Показать ответ
Ответ:
пикча6
пикча6
08.10.2020 10:26
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a,b,c:integer;
  Read(a,b);
  if b>a then Swap(a,b);
  while True do begin
    Read(c);
    if c=0 then break;
    if c>b then Swap(b,c);
    if b>a then Swap(a,b)
    end;
  Writeln('Два наибольших числа ',a,', ',b)
end.

Пример
-14 13 39 -5 -39 -8 39 41 -2 -49 -32 18 -33 -50 10 2 -2 3 0
Два наибольших числа 41, 39

Замечание: вводить можно, также нажимая Enter
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота