program dkt;
var a,b,tb: array[1..1000] of real;
n,i,j,k: integer;
min,max: real;
begin
write('Nhap so HS cua lop: '); readln(n);
for i:=1 to n do
begin
write('Nhap diem Toan cua ban thu ',i); readln(a[i]);
write('Nhap diem Tin cua ban thu ',i); readln(b[i]);
end;
for k:=1 to n do
tb[k]:=(a[k] + b[k])/2;
min:=tb[1]; max:=tb[1]
for j:=1 to n do
begin
if a[j] > max then max:=a[j];
if a[j] < min then min:=a[j];
end;
writeln('Diem TB cao nhat la: ',max, '; Diem TB thap nhat la ',min);
readln
end.
