SredArif=0
Count=0
n1 = LBOUND(a)
n2 = UBOUND(a)
FOR i=n1 TO n2
  SredArif=SredArif+a(i)
NEXT i
SredArif = SredArif / (n2-n1+1)
 
FOR i=n1 TO n2
  IF a(i)>SredArif THEN Count=Count+1
NEXT i
PRINT Count