Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нём некорректно. Вам необходимо обновить браузер или попробовать использовать другой.
program ideone;
var a:array[1..n] of integer;
begin
for i:=1 to n do read(a;
max:=1;
for i:=1 to n do
begin
if a>max then max:=a;
i:=i+1;
end;
write(max)
end.
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.
