• Программирование по информатике
    С клавиатуры вводится последовательность чисел не превышающих 10000. Найти и вывести максимальное положительное число.
    Напишите программу на языке паскаль

Ответы 5

  • Граница 10000 обычно не употребляется
  • эй парень
    • Автор:

      bobpis8
    • 6 лет назад
    • 0
  • Забыл я кое что
    • Автор:

      chanel
    • 6 лет назад
    • 0
  • И ты мне не сказал
    • Автор:

      maribel
    • 6 лет назад
    • 0
  • var a,amax:integer;beginwriteln('Введите положительное число');read(a);amax:=a;while a<>0 dobeginif (a>amax) and (a>0) then amax:=a;read(a);end;writeln('Максимальное число равно ',amax);end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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