• Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положи¬тельных чисел (длина последовательности не ограничена) . (Цикл Whil или Repeat)
    Определение максимального числа последовательности
    положительных чисел.
    Вводите числа в строку через пробел. Для завершения ввода введите ноль.
    -> 56
    -> 75
    -> 43
    -> О
    Максимальное число: 75.

Ответы 1

  • Var A,M:integer;BeginM:=0;RepeatRead(A);if A>M then M:=A;Until A=0;WriteLn('Max = ',M)End.
    • Автор:

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

Войти через Google

или

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

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

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