- 7


(, , ) read tv$, , m

= if tv$ = then exit do

k := k + 1 k = k + 1

(, , ) ? fv$; ; m

s :=s + cm s= s + c(m

k = 1 if k = 1 then

max

:= c×m max = c×m

ToMax

:= $ = tv$

c(m > max elseif c(m > max then

max

:= c×m max = c×m

ToMax := TM = tv$

end if

loop

(cya=,s) ? cya=,s

() ?

(ToMax, max) ? TM$, max

end

 

.

 

 

 

 

 

 

 

 

 

 

 

( )

( -) -