Program BTT;
Uses crt;
Var A: array[1..10] of real;
i,d,g: byte;
s,tb: real;
Begin
Clrscr;
s:=0; d:=0; g:=0;
For i:=1 to 10 do
Begin
Write('Nhap diem hoc sinh thu ',i,': '); Readln(A[i]);
s:=s+A[i];
If A[i]>5 then inc(d);
If A[i]>=8 then inc(g);
End;
tb:=s/10;
Writeln('Tong diem: ',s:0:2);
Writeln('TBC: ',tb:0:2);
Writeln('Co ',d,' hoc sinh tren 5 diem');
Write('Co ',g,' hoc sinh gioi');
Readln
End.