我只会PASCAL
var n,i,max,min,j:longint;
begin
readln(n);
max:=-maxlongint;
min:=maxlongint;
for i:=1 to n do
begin
readln(j);
if j>max then max:=j;
if j