10 lines
258 B
Text
10 lines
258 B
Text
100 NUMERIC ARR(3 TO 8)
|
|
110 LET ARR(3)=3:LET ARR(4)=1:LET ARR(5)=4:LET ARR(6)=1:LET ARR(7)=5:LET ARR(8)=9
|
|
120 PRINT AM(ARR)
|
|
130 DEF AM(REF A)
|
|
140 LET T=0
|
|
150 FOR I=LBOUND(A) TO UBOUND(A)
|
|
160 LET T=T+A(I)
|
|
170 NEXT
|
|
180 LET AM=T/SIZE(A)
|
|
190 END DEF
|