program main implicit none integer n,k integer,allocatable,dimension(:)::x read(*,*)n read(*,*)k allocate(x(n)) read(*,*)x write(*,*)maxval(x)-minval(x) end program main