14 lines
228 B
Text
14 lines
228 B
Text
10 DATA 9,0,1,2,4,7,4,2,1,0
|
|
20 LET p=1
|
|
30 READ n: DIM b(n)
|
|
40 FOR i=1 TO n
|
|
50 READ b(i)
|
|
60 NEXT i
|
|
70 FOR j=1 TO p
|
|
80 FOR i=1 TO n-j
|
|
90 LET b(i)=b(i+1)-b(i)
|
|
100 NEXT i
|
|
110 NEXT j
|
|
120 FOR i=1 TO n-p
|
|
130 PRINT b(i);" ";
|
|
140 NEXT i
|