: Uses crt; Var i: integer; n: integer; max: integer; min: integer; a: array[1..100] of integer; Begin Clrscr; Write(‘ Nhap do dai cua day so, n= ‘); Readln(n); Writeln(‘Nhap cac phan tu cua day so: ‘); For i:= 1 to n do Begin Write(‘a[‘, i, ‘]= ‘); Readln(a[i]); End; max:= a[1]; min:= a[1]; For i:= 2 to n do Begin If max < a[i] then max:= a[i]; If min > a[i] then min:= a[i]; End; Writeln(‘So lon nhat la max= ‘, max) min=,Readln; end.
