Viết chương trình nhập từ bàn phím điểm trung bình của từng môn học (12 môn) 1. Tính điểm trung bình các môn 2. Tìm môn có điểm trung bình cao nhất và môn có điểm trung bình thấp nhất 3. Đến số môn có điểm trung bình lớn hơn 5

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.