谁能帮我用vfp编:编程求给定输入正实数值中最大和最小的数。（要求随意给出数字进

SET TALK OFF
CLEAR
input "请输入要比大小数的个数(大于等于5个)" to i
DIMENSION a(i)
FOR j =1 TO i
input "请输入第"+str(j)+"个数" to a(j)
NEXT
maxj=a(1)
minj=a(1)
FOR j=2 TO i
IF a(j)>=maxj
maxj=a(j)
ENDIF
IF a(j)<=minj
minj=a(j)
ENDIF
next
? "最大数为:",maxj
? "最小数为:",minj
SET talk ON