Nhập số tiền bán hàng trong 1 tháng của một cửa hàng a) in số tiền bán hàng vừa nhập. b) tính tổng số tiền bán hàng. c) tính trung bình số tiền bán hàng. d) Đếm xem có bao nhiêu ngày số tiền bán hàng cao hơn trung bình và thấp hơn trung bình. Giúp em với mọi người ơi 👏👏👏

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.