program diem;
uses crt;
var a : array[1..20] of integer;
    i,dem  : integer;
    max, min, t, tb  : real ;
begin
clrscr;
for i := 1 to 12 do
begin
write('nhap diem trung binh mon hoc thu ', i,':');
readln(a[i]);
end;
min := a[1];
max := a[1];
t := 0;
dem := 0;
for i:=1 to 12  do
begin
if (min > a[i]) then min := a[i];
if (max < a[i]) then max := a[i];
t := t + a[i];
end;
tb := t/12;
for i:=1 to 12  do
write(a[i] );
writeln(' diem trung binh cao nhat trong 12 mon la:', max: 8: 2  );
writeln(' diem trung binh thap nhat trong 12 mon la:', min: 8:2  );
writeln (' diem trung binh 12 mon hoc la:',tb :8:2 );
for i:= 1 to 12 do 
if a[i]> 5 then dem := dem + 1 ;
write(' so mon co diem trung binh tren 5 la : ', dem );
Readln;
End.