uses math;
var n,i,max,min,dem:longint;
a:array [1..10000] of longint;
begin
assign(input,'bai42.inp'); reset(input);
assign(output,'bai42.out'); rewrite(output);
read(n);
for i:=1 to n do
read(a[i]);
max:=-trunc(1e9);
for i:=1 to n do
if max<a[i] then max:=a[i];
min:=trunc(1e9);
for i:=1 to n do
if min>a[i] then min:=a[i];
dem:=max-min;
write(dem);
close(input); close(output);
end.[/code][/code]