Prompt:
Using PICBASIC PRO, for no specific Device. Create a routine to take 16 random numbers, sort them in sequential order of value, discard the top and bottom four values, sum and average the middle eight. Comment the code in plain english
Response:
Code:'This code will take 16 random numbers, sort them in sequential order of value, discard the top and bottom four values, sum and average the middle eight. Dim I, J, X, Y, Sum, Average Dim Array(16) As Word 'Use a loop to generate the 16 random numbers and store them in the Array For I = 0 To 15 Array(I) = Rnd(1) Next 'Use a loop to sort the numbers in sequential order of value For I = 0 To 14 For J = I + 1 To 15 If Array(I) > Array(J) Then X = Array(I) Y = Array(J) Array(I) = Y Array(J) = X End If Next Next 'Initialize the Sum variable Sum = 0 'Use a loop to discard the top and bottom four values For I = 4 To 11 Sum = Sum + Array(I) Next 'Calculate the average of the middle eight values Average = Sum / 8 End



Bookmarks