min value in array

[tinmanjo]

Is there a way to find the smallest/highest value in an array, say -4,2-10,-6,6,9 are a crude example of numbers.

Cant find a function for this, i know there is Arraylist.sort but this is for literal strings.

I need to find the smallest value in a large array.

 

[klaus]

You should use and ArrayList control.
With ArraList1.Sort(cNumber) you sort numbers.
ArrayList1.Item(0) contains the min value
ArrayList1.Item(ArrayList1.Count-1) contains the max value.

Best regards.

 

[tinmanjo]

Thanks,

sorry i missed the CNumber in the help, that explains it now!

 

[RB Smissaert]

If you don't need the array to be sorted then is fastest just to loop through the array. For example:

Sub Globals
Dim Arr (100) As Byte
End Sub

Sub Test

Dim r As Number
Dim btMin As Byte

btMin = Arr(0)

For r = 1 to ArrayLen(Arr()) - 1
If Arr(r) < btMin Then
btMin = Arr(r)
End If
Next r

End Sub


RBS

 

[klaus]

You must be careful with the variable declaration:
Dim Arr (100) As Byte

Byte is an unsigned integer !
But tinmanjo has also negative numbers.

The most suitable variable type with B4PPC 6.90 is Number, you could also use Integer, but B4PPC will convert the Integer variables to Number variables for the calculations.

Best regards.