uses crt;
var a:Array[1..365]of longint;tb:real; i,n,dem:longint;
begin
 clrscr;
  tb:=0;
  for i:=1 to 365 do
        begin
         write('nhap a[',i,']=');readln(a[i]);
         tb:=tb+a[i];
        end;
  tb:=tb/n;
  writeln('trung binh nhiet do mot nam la:',tb);
  dem:=0;
  for i:=1 to 365 do if(a[i]>tb)then inc(dem);
  write('co ',dem,' ngay co nhiet do cao hon nhiet do tb');
 readln
end.

uses crt;

var B : array [1 .. 365] of real;

i , d : integer; T : real;

begin

clrscr;

i := 1; T := 0;

while i <= 365 do

    begin

        write('Nhiet do ngay ', i ,' = ');

        readln(B[i]);

        T := T + B[i];

        i := i + 1;

    end;

for i := 1 to 365 do

    if B[i] > T / 365 then d := d + 1;

writeln('Nhiet do trung binh = ', T /365 : 2 : 2);

write('Co ', d ,' ngay nhiet dô cao hon trung binh');

readln

end.