Const
 N=10;
Var
 A:array[1..N] of real;
 S:real;
 i,k:integer;
Begin
WriteLn('Ââåäè ýëåìåíòû ìàññèâà');
For i:= 1 to N do
 Read(A[i]);

For i:= 1 to N do
 S:=S+A[i];
S:=S/N;

For i:= 1 to N do
 if (A[i]<S) then k:=k+1;
WriteLn(k);
End.