Submission #1341923

---

Source Code Expand

Uses math;
Var
n,Mx,Mn,i:longint;
a:array[0..105] of longint;
Begin
Readln(n);
Mn:=maxlongint;
For i:=1 to n do 
Begin
Read(a[i]);
Mn:=Min(Mn,a[i]);
Mx:=Max(Mx,a[i]);
End;
Write(Mx-Mn);
End.

Submission Info

Compile Error

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

Judge Result