Das ist zwar Bascom code, aber der sollte sich doch leicht übersetzen lassen. Ich denke die Funktionsweise ist klar. Der Code findet das Maximum von einer Reihe von Messwerten die in einem Array gespeichert sind.
Code:
Dim Maximum As Word
Dim Maximumpos As Byte
Dim Messung(10) As Word   ' so werden in Bascom Arrays definiert
Dim I As Byte

messung( 1 )= 1
Messung( 2 )= 2
messung( 3 )= 3
Messung( 4 )= 100
messung( 5 )= 70
Messung( 6 )= 50
messung( 7 )= 90
Messung( 8 )= 66
messung( 9 )= 45
Messung( 10 )= 64

Do
  For I = 1 To 9
    If Messung(i) > Maximum Then
      Maximum = Messung(i)
      Maximumpos = I
    End If
  Next
Print "Maximum: " ; Maximum ; " Index:" ; Maximumpos
Loop
End