program max_min;
uses crt;
var dtb:array[1..100] of real;
max,min:real;
n,i:byte;
begin
clrscr;
write('Nhap so hoc sinh: '); readln(n);
write('Nhap diem trung binh ban thu 1: '); readln(A[1]);
max:=A[1]; min:=A[1];
for i:=2 to n do
begin
write('Nhap diem trung binh ban thu ',i,': '); readln(A[i]);
if A[i]>max then max:=A[i];
if A[i]<min then min:=A[i];
end;
writeln('Diem trung binh cao nhat la: ',max:2:2);
writeln('Diem trung binh thap nhat la: ',min:2:2);
readln;
end.