CLEAR
DIMENSION zs[1000]
INPUT '請輸入第1個整數(E-退出):' TO zs[1]
IF TYPE('zs[1]')='C'
RETURN
ENDIF
STORE 1 TO zdh,zxh
STORE zs[1] TO zds,zxs
n=2
DO WHILE .t.
INPUT '請輸入第'+LTRIM(STR(n))+'個整數(E-退出):' TO zs[n]
IF TYPE('zs[n]')='C'
IF UPPER(zs[n])='E'
EXIT
ELSE
LOOP
ENDIF
ENDIF
IF zs[n]>zds
zds=zs[n]
zdh=n
ENDIF
IF zs[n]<zxs
zxs=zs[n]
zxh=n
ENDIF
n=n+1
ENDDO
FOR i=1 TO n-1
?zs[i]
ENDFOR
IF zxh>1
lss=zs[1]
zs[1]=zs[zxh]
zs[zxh]=lss
ENDIF
IF zdh<n-1
lss=zs[n-1]
zs[n-1]=zs[zdh]
zs[zdh]=lss
ENDIF
FOR i=1 TO n-1
?zs[i]
ENDFOR