# Kövek
# NT 2020 1. kat, 2. ford, 1. feladat
# 2025.10.17 FCs

n=int(input())
x=list()
x=input().split()
s=0
m=0
for i in range(n):
    x[i]=int(x[i])
    s=s+x[i]
db=s/n
i=0
while i<n:
    # Mindkét esetben van következő
    if x[i]>db:
        x[i+1]=x[i+1]+x[i]-db
        x[i]=db
        m=m+1
    if x[i]<db:
        # Részsorozat, amely az utolsó elemével lett sok
        # ilyen biztosan van
        el=i
        r=x[i]
        while r+x[i+1]<(i+1-el+1)*db:
            r=r+x[i+1]
            i=i+1
        r=r+x[i+1]
        i=i+1
        ut=i
        # Visszafelé kisimítjuk
        while ut>el:
            x[ut-1]=x[ut-1]+x[ut]-db
            x[ut]=db
            m=m+1
            ut=ut-1
    i=i+1
print(m)