输入n个整数,将其中最下的数与第一个数对换,最大的数与最后一个数对换.不要c语言的,我要vfp写的

输入n个整数,将其中最下的数与第一个数对换,最大的数与最后一个数对换.不要c语言的,我要vfp写的
输入n个整数,将其中最下的数与第一个数对换,最大的数与最后一个数对换.不要c语言的,我要vfp写的

输入n个整数,将其中最下的数与第一个数对换,最大的数与最后一个数对换.不要c语言的,我要vfp写的
*输入n个整数,将其中最小的数与第一个数对换,最大的数与最后一个数对换---vfp
CLEAR
DIMENSION zs[1000]
INPUT "请输入第 1 个整数(0-结束)：" TO s
IF s=0
RETURN
ENDIF
STORE s TO zs[1],zx,zd
zxw=1
zdw=1000
FOR i=2 TO 1000
INPUT "请输入第 "+LTRIM(STR(i))+" 个整数(0-结束)：" TO s
IF s=0
EXIT
ENDIF
zs[i]=s
IF szd
zd=s
zdw=i
ENDIF
ENDFOR
?"原输入顺序："
FOR j=1 TO i-1
?zs[j]
ENDFOR
zs[zxw]=zs[1]
zs[1]=zx
zs[zdw]=zs[i-1]
zs[i-1]=zd
?"调整后顺序："
FOR j=1 TO i-1
?zs[j]
ENDFOR
RETURN