program phuongt; uses crt; var A: array[1..500] of integer; i, min, max, n: integer; begin clrscr; write('Nhap n = '); readln(n); for i:=1 to n do begin write('A[', i, '] = '); readln(A[i]); end; min:=A[1]; max:=A[1]; for i:=1 to n do begin if min>A[i] then min:=A[i]; if max<A[i] then max:=A[i]; end; writeln('Phan tu lon nhat: ', max); write('Phan tu nho nhat: ', min); readln end.
