是这样吗?
CLS
INPUT "N=";N
INPUT A 
MAX=A:MIN=A
FOR I=2 TO N
  INPUT A
  IF A>MAX THEN MAX=A 
  IF A<MIX THEN MIN=A
NEXT I
? "MAX-MIN=";MAX-MIN

cls
input n
randomize(timer)
dim a(n)
for i=1 to n
a(i)=int(a(i))
next i

for i=1 to n-1
for j=i+1 to n
if a(I)>a(j) then swap a(i),a(j)
next j,i

for i=1 to n
? a(i);
next i
?:?a(n)-a(1)
end

楼主的解答是对的。

你采用的是把数组中的数字一个一个输入，输入一次就比较一下，

而二楼采用的是把数字统一先输入好，然后再比较。