import Control.Applicative
import Data.List
main = do
  n <- readLn
  as <- map (read :: String -> Int) . words <$> getLine
  let n' = sum as `div` (n - 1)
      [t, k] = map length . group . sort $ [2, 4] ++ map (n' -) as
  putStrLn $ show (t - 1) ++ " " ++ show (k - 1)