var
  n,maxe,minn,i:longint;
begin
  minn:=maxlongint;
  readln(n);
  for i:=1 to n do
   begin
    read(a[i]);
    if a[i]>maxe then maxe:=a[i];
    if a[i]<minn then minn:=a[i];
   end;
  writeln(maxe-minn);
end.