• ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    Написать программу, которая определяет максимальное число из введённой последовательности положительных чисел
    завершение вводом 0

Ответы 1

  • VarA,M:integer;BeginRead(A);M:=A;While A<>0 do   Begin   Read(A);   if A>M then M:=A   End;Write('Max = ',M)End.
  • Добавить свой ответ

Войти через Google

или

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

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

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