Graphics 500,500,32,0

Dim Zahlen (29)
Global max
Global pos


SeedRnd MilliSecs()

;zahlen setzen
For i = 0 To 29               
  Zahlen (i) = Rand (0, 100)

Next 
 
;max suchen 
For i = 0 To 29

  x = Zahlen(i)           ;position  auslesen

  If i <= 28 Then y = Zahlen (i+1)   ;nachfolgende position auslesen 

  If y > x And max <= y Then max = y And pos = i
  If y = x And max <= y Then max = y And pos = i
  If y < x And max <= x Then max = x And pos = i

Next 

Print \"position des grössten werts: \" + pos
Print 


For i = 0 To 29
  Print i+ \") \"+Zahlen (i) 

Next 




WaitKey
End 

wert=0
pos=0
For i=0 To 29
 If Zahlen(i)>wert
  wert=zahlen(i)
  pos=i
Next

Graphics 500,500,32,0

Dim Zahlen (29)
Global maximum = -1 ; muss 1 kleiner sein als der kleinst mögliche Wert
Global position

SeedRnd MilliSecs()

;zahlen setzen
For i = 0 To 29               
  Zahlen (i) = Rand (0, 100)
Next
 
;max suchen
For i = 0 To 29
   If Zahlen (i) > maximum
     maximum = Zahlen (i)
     position = i
   EndIf
Next

Print \"position: \" + pos
Print


For i = 0 To 29
  Print i+ \") \"+Zahlen (i)
Next


WaitKey
End