13 lines
347 B
Plaintext
13 lines
347 B
Plaintext
10 DATA 7,-7,1,5,2,-4,3,0
|
|
20 READ n
|
|
30 DIM a(n): LET sum=0: LET leftsum=0: LET s$=""
|
|
40 FOR i=1 TO n: READ a(i): LET sum=sum+a(i): NEXT i
|
|
50 FOR i=1 TO n
|
|
60 LET sum=sum-a(i)
|
|
70 IF leftsum=sum THEN LET s$=s$+STR$ i+" "
|
|
80 LET leftsum=leftsum+a(i)
|
|
90 NEXT i
|
|
100 PRINT "Numbers: ";
|
|
110 FOR i=1 TO n: PRINT a(i);" ";: NEXT i
|
|
120 PRINT '"Indices: ";s$
|