{$A+,B-,D+,E+,F-,G-,I+,L+,N+,O-,P+,Q-,R-,S+,T-,V+,X+<Y+}
{$M 16384,0,655360}
program Confuse;
var Max,Min,x:Extended;
k,n,i:Integer;
begin
assign(Input,'Confuse.dat');
Reset(Input);
Readln(n,k);
Max:=-2E9;
Min:=2E9;
for i:=1 to n do
begin
read(x);
if x>Max then Max:=x;
if x<Min then Min:=x;
end;
Assign(Output,'Confuse.sol');
Rewrite(Output);
Writeln(Max-Min:0:0);
Close(Input);
Close(Output);
end.