您所在位置：主题：是怎么做的！
SXQ529
[专家分：0] 发布于 2005-12-12 16:50:00
data 12,13,87,234,897,87
for i = 1 to 6
read a(i)
if a(i)>max then max=(i)
if a(i)<min then min =a(i)
next i
dim b(mi9n to max)
for k = min to max
for j= 1 to 6
b(a(j))=a(j)
next j
if b(k)<>0 then
;print b(k):m=m+1
end if
if m=6 thyen exit for
next k
end
for i = 1 to 6
read a(i)
if a(i)>max then max=(i)
if a(i)<min then min =a(i)
next i
dim b(mi9n to max)
for k = min to max
for j= 1 to 6
b(a(j))=a(j)
next j
if b(k)<>0 then
;print b(k):m=m+1
end if
if m=6 thyen exit for
next k
end
