var n,i,r,max,min:integer;
    pi:array [1..1000] of integer;

begin
    readln(n);
    for i:=1 to n do
       read(pi[i]);
    min:=pi[1];
    max:=pi[2];
    for i:=2 to n do
       if pi[i]>max then max:=pi[i];
    r:=max-min;
    if (r>0) then writeln(r:0)
             else writeln('0':0);
end.