main = do
  getLine
  l <- getLine
  let ns = map read $ words l
  putStrLn $ compute ns

compute ns = show c ++ " " ++ show t where
  total = sum ns `div` (length ns - 1)
  ls = map (total -) ns
  c = count 2 ls
  t = count 4 ls

count v ns = length $ filter (v ==) ns