uses crt;
var a:array[1..366]of longint;
tb:real;
s,i,d:longint;
const n=365;
begin
clrscr;
i:=0;
repeat
begin
i:=i+1;
write('ngay',i,'=');
readln(a[i]);
s:=s+a[i];
end;
until
i=n;
tb:=s/n;
for i:=1 to n do 
if a[i]<tb then d:=d+1;
writeln('tb nam',tb:5:2);
writeln('co ',d,' duoi trung binh nam');
readln
end.

Program baitap;

Uses crt;

Var A:array[1..365] of real;

      i,dem:integer;

      S,tb:real;

Begin

Clrscr;

S:=0; dem:=0;

For i:=1 to 365 do

     Begin

     Write('Nhap nhiet do cua ngay thu ',i);

     Readln(A[i]);

     S:=S+A[i];

     End;

tb:=S/365;

Writeln('Nhiet do trung binh ca nam:', tb:3:2);

For i:=1 to 365 do

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

Writeln('Co ',dem,' ngay co nhiet do nho hon nhiet do trung binh cua nam');

Readln

End.