import Control.Monad ( replicateM )
import Data.List ( sort )

main = do
  n <- readLn
  getLine
  ws <- map read . words <$> replicateM n readLn
  putStrLn . show $ solve ws

solve :: [Int] -> Int
solve ws = l - h
  where
    ws' = sort ws
    h = head ws'
    l = last ws'