Submission #1343001

---

Source Code Expand

var i,a,b,c,s:longint;
begin
readln(s);
c:=maxlongint; 
for i:=1 to s do
    begin
        read(a);
        if b<a then b:=a;
        if c>a then c:=a;
    end;
writeln(b-c);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result