I'll take a shot at it as well, but the gurus have already replied, this is just a little different.

Code:
i       var byte
lowest  var byte
highest var byte
myarray var byte[50]

for i = 0 to 48
   Highest= MyArray[i] MAX MyArray[i+1]
   Lowest= MyArray[i] MIN MyArray[i+1]
next i
ScaleRobotics, I hope you had good internet free holidays