import Control.Monad
import Data.List

solve :: [Int] -> Int
solve a = last a - head a

main :: IO ()
main = do
    n <- readLn
    _ <- getLine
    a <- replicateM n readLn
    (putStrLn . show . solve . sort) a