uses crt;
var d,s,i,n,s2:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 s:=s+a[i];
end;
writeln('tong cac ptu la:',s);
for i:=1 to n do
 if a[i]<s/n then begin s2:=s2+i;d:=d+1;end;
if d>0 then write('TB cong cac so dem co gia tri nho hon TBC la:',s2/d:4:2)
 else write('TB cong cac so dem co gia tri nho hon TBC la:0');
readln;
end.

uses crt;
var n,i,s,s2,d: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do begin
        read(a[i]);
        s:=s+a[i];
    end;
    writeln(s);
    for i:=1 to n do if a[i]<s/n then begin
        s2:=s2+i;
        inc(d);
    end;
    if d>0 then write(s2/d:0:2) else
    write(0);
    readln
end.