Program BTT; Uses crt; Var A: array[1..1000] of longint; n,i,max: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End;
max:=A[1]; For i:=2 to n do If A[i]>max then max:=A[i]; Write('Max = ',max); Readln End.
