y=0 l!gX-U%-
declare X, double, 1,10 <e! TF@
\i?bt0 bM
X(1)=(5) pk u\)
X(2)=(-6) S\ak(<X
X(3)=(98) I3
6@x`f
X(4)=(-1) ZeG4z({af
X(5)=(3) G#Bm">+
X(6)=(-8) @V>]95RX
X(7)=(1) ty5# a
X(8)=(-5) <f
(z\pi1
X(9)=(4) Dlz0*eHD
X(10)=(-3) ;8=Bee4
}\m.~$|[
xVsI#`<a
for a,1,10,1 7/M[T\c
if X(a)<y then y=X(a) 8'E7Uj
else y=y .0,G4k/yv
endif U;kNo3=
print X(a)," ",y ?6"U('y>n
next G5|nt#>
print "last result:", y CE{2\0Q
p+ReQ.5|
一个小例子,应该可以解决你的问题