import Control.Monad
main = do
    n <- readLn :: IO Int
    k <- readLn :: IO Int
    a <- replicateM n (readLn :: IO Int)
    print $ maximum a - minimum a