• Вопрос по информатике:

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

    • Автор:

      thomas13
  • Ответ:

    Program n1;var a,max: integer;beginreadln(a);max:=a;repeatreadln(a);if a>max then max:=a;until (a=0);writeln(max);end.
    • Отвечал:

      laneynr2v

    Ответов нет, но ты это испарвиш!