Program baitap;
Uses crt;
Var A:array[1..100] of real;
i,n,dem:integer;
T:real;
Begin
Clrscr;
Write('Nhap so hoc sinh:'); Readln(n);
T:=0; dem:=0;
For i:=1 to n do
Begin
Write('Nhap diem cua hoc sinh thu ',i,':');
Readln(A[i]);
If A[i]>=5 then dem:=dem+1;
T:=T+A[i];
End;
Writeln('Diem trung binh:',T/n:3:1);
Writeln('So luong hoc sinh co diem tren 5:',dem);
Readln
End.