Ж Жека123 Регистрация 20 Июл 2013 Сообщения 80 Репутация 0 Спасибо 0 Монет 0 6 Янв 2017 #1 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.
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.