implicit none
integer(8) n,k,i
integer(8),allocatable :: A(:)

read(*,*) n
read(*,*) k

allocate (A(n))
do i=1,n
   read(*,*) A(i)
end do

write(*,*) MAXVAL(A)-MINVAL(A)
end