redim Example10 DIM Array(14)
20 DATA 1, 2, 3, 4, 5, 6, 8, 4, 56, 678, 678, 65, 4, 8, 6, 0, 12, 2
30 RESTORE
40 CLEAR SCREEN
50 READ Array(*)
60 PRINT "The sum of the array: ";SUM(Array)
70 REDIM Array(4:10)
80 PRINT "Array redimensioned to values 4 to 10. Sum:";SUM(Array)
90 END
|