import Control.Applicative ((<$>))

main :: IO ()
main = do
    _ <- getLine
    _ <- getLine
    ns <- map (read :: String -> Int) . lines <$> getContents
    print $ (maximum ns) - (minimum ns)