21 lines
416 B
Text
21 lines
416 B
Text
PROGRAM EQUILIBRIUM
|
|
|
|
DIM LISTA[6]
|
|
|
|
PROCEDURE EQ(LISTA[]->RES$)
|
|
LOCAL I%,R,S,E$
|
|
FOR I%=0 TO UBOUND(LISTA,1) DO
|
|
S+=LISTA[I%]
|
|
END FOR
|
|
FOR I%=0 TO UBOUND(LISTA,1) DO
|
|
IF R=S-R-LISTA[I%] THEN E$+=STR$(I%)+"," END IF
|
|
R+=LISTA[I%]
|
|
END FOR
|
|
RES$=LEFT$(E$,LEN(E$)-1)
|
|
END PROCEDURE
|
|
|
|
BEGIN
|
|
LISTA[]=(-7,1,5,2,-4,3,0)
|
|
EQ(LISTA[]->RES$)
|
|
PRINT("Equilibrium indices are";RES$)
|
|
END PROGRAM
|