Program baitap;

Uses crt;

Var A:array[1..31] of longint;

      i,n,dem1,dem2:integer;

      tb,S:extended;

Begin

Clrscr;

S:=0; dem1:=0; dem2:=0;

Write('So ngay trong thang:'); Readln(n);

Writeln('Nhap so tien cua:');

For i:=1 to n do

     Begin

     Write('Ngay thu ',i,':'); 

     Readln(A[i]);

     S:=S+A[i];

     End;

Write('So tien ban hang vua nhap:');

For i:=1 to n do write(A[i],'     ');

Writeln('Tong so tien ban hang:', S:9:2);

tb:=S/n;

Writeln('Trung binh so tien ban hang:',tb:9:2);

For i:=1 to n do

     Begin

     If A[i]>tb then dem1:=dem1+1;

     If A[i]<tb then dem2:=dem2+1;

     End;

Writeln('Co ',dem1,' ngay so tien ban hang cao hon trung binh');

Writeln('Co ',dem2,' ngay so tien ban hang thap hon trung binh');

Readln

End.