import Control.Monad

main :: IO ()
main = do
  readLn
  strlist <- readLn
  let list = map read $ words strlist :: [Int]
  putStr $ show . maximum list
  putStr " "
  putStr $ show. minimum list
  putStr " "
  putStrLn $ show . sum list
