FOXPRO程序:从键盘上输入五个数组,每组有六个数据,分别用子程序、过程、自定义函

DIMENSION a(6),b(6),c(6),d(6),e(6)
local p,nmin,nmax
nmin=0
nmax=0
p=1
FOR i=1 to 5
FOR G=1 to 6
input "输入"+"第"+ALLTRIM(STR(i))+"组"+"第"+ALLTRIM(STR(G))+"数字=" to m
DO case
CASE p=1
a(G)=m
CASE p=2
b(G)=m
CASE p=3
c(G)=m
CASE p=4
d(G)=m
CASE p=5
c(G)=m
ENDCASE
ENDFOR
p=p+1
ENDFOR

*数组A

FOR l=1 to 5
FOR j=l to 5
IF a(j)>a(j+1)
nmax=a(j)
a(j)=a(j+1)
a(j+1)=nmax
ENDIF
ENDFOR
ENDFOR
?a(6)

FOR l=1 to 5
FOR j=l to 5
IF a(j)<a(j+1)
nmin=a(j)
a(j)=a(j+1)
a(j+1)=nmin
ENDIF
ENDFOR
ENDFOR
?a(6)

*数组B
FOR l=1 to 5
FOR j=l to 5
IF B(j)>B(j+1)
nmax=B(j)
B(j)=B(j+1)
B(j+1)=nmax
ENDIF
ENDFOR
ENDFOR
?B(6)

FOR l=1 to 5
FOR j=l to 5
IF B