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