mat search Example10 CLEAR SCREEN
20 OPTION BASE 1
30 DIM Numbers(11)
40 DATA 6, 1, 9, 2, 8, 3, 8, 9, 1, 7, 5
50 RESTORE
60 READ Numbers(*)
70 PRINT "The numbers read:"
80 PRINT Numbers(*)
90 PRINT
100
110 MAT SEARCH Numbers,MAX;Max
120 MAT SEARCH Numbers,LOC MAX;Loc_max
130 MAT SEARCH Numbers,MIN;Min
140 MAT SEARCH Numbers,LOC MIN;Loc_min
150 MAT SEARCH Numbers,# LOC (Max);Num_max
160 MAT SEARCH Numbers,# LOC (Min);Num_min
170 MAT SEARCH Numbers,LOC (<2);Loc_num,4
180
190 PRINT "Maximum value: ";Max
200 PRINT "It first occurs in element: ";Loc_max
210 PRINT "It occurs ";Num_max;" times."
220 PRINT "Minimum value: ";Min
230 PRINT "It is found in element: ";Loc_min
240 PRINT "And occurs ";Num_min;" times."
250 PRINT "First occurence of a number < 2 starting from element 4"
260 PRINT "is in array element: ";Loc_num
270 END
|