program phuongt; uses crt; var A: array[1..500] of integer; i, n, max, min: integer; begin clrscr; write('Nhap n = '); readln(n); for i:=1 to n do begin write('A[', i, '] = '); readln(A[i]); end; max:=A[1]; min:=A[1]; for i:=1 to n do begin if max<A[i] then max:=A[i]; if min>A[i] then min:=A[i]; end; writeln('Max = ', max); write('Min = ', min); readln end.
uses crt; var a:array[1..100] of integer;n,i,max,min:integer; begin clrscr; write('Nhap so luong phan tu: '); readln(n); write('Nhap tung phan tu: '); for i:=1 to n do readln(a[i]); max:=a[1];min:=a[1]; for i:=2 to n do begin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end; write('Gia tri lon nhat: ',max); writeln; write('Gia tri nho nhat: ',min); readln; end.
