Задать вопрос Регистрация
Помочь другим

Ответы 1

  • var a,max: real;

         n,i: integer;

    begin

      max:=0;

      readln(n);

      for i:=1 to n do begin 

        readln(a);

        if a>max then max:=a;

                             end;

      writeln(max);

    end.

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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