y=0 sPK ]:iC
declare X, double, 1,10 U4d7-&U
|lLe^FM
X(1)=(5) !>Nlp,r&~
X(2)=(-6) .w4|$.H
X(3)=(98) @ 51!3jeu
X(4)=(-1) CAc]SxLh
X(5)=(3) 9'(_*KSH
X(6)=(-8) x;[)#>.'
X(7)=(1) T.#_v#oM
X(8)=(-5) >"/TiQt
X(9)=(4) 0s`6d;
X(10)=(-3) k)knyEUi
t3$ cX_
S*Ea" vBA
for a,1,10,1 OXLB{|hH80
if X(a)<y then y=X(a) cs2-jbRn
else y=y `6rLd>=R
endif @6ckB (
print X(a)," ",y R V#w0 r
next #Shy^58$
print "last result:", y 7Ydqg&
.EhC\QpP
一个小例子,应该可以解决你的问题