local n = io.read("*n")
local a = {}
for i = 1, n do a[i] = io.read("*n") end
local cnt = 0

local function getminmax()
  local min, max, maxp = a[1], a[1], 1
  for i = 2, n do
    if max < a[i] then
      max, maxp = a[i], i
    end
    if a[i] < min then
      min = a[i]
    end
  end
  return min, max, maxp
end
while true do
  local min, max, maxp = getminmax()
  if max - min <= n then break end
  local rep = (max - min) // (n + 1)
  cnt = cnt + rep
  for i = 1, n do
    if i == maxp then
      a[i] = a[i] - rep * n
    else
      a[i] = a[i] + rep
    end
  end
end
do
  local min = getminmax()
  while n <= min do
    local rep = min // n
    cnt = cnt + rep * n * (n - 1)
    for i = 1, n do
      a[i] = a[i] - rep * (n - 1)
    end
    min = getminmax()
  end
end
while true do
  local min, max, maxp = getminmax()
  if max < n then break
  else
    cnt = cnt + 1
    for i = 1, n do
      if i == maxp then a[i] = a[i] - n
      else a[i] = a[i] + 1
      end
    end
  end
end

print(cnt)
