Trovare il numero massimo in un array in QB64

Ecco un esempio di codice che trova il numero massimo in un array in QB64:

Randomize Timer

Dim arr(10) As Integer

For i = 0 To 9
    arr(i) = Int(Rnd * 100)
    Print arr(i)
Next i

max = arr(0) 

For i = 1 To 9 
    If arr(i) > max Then max = arr(i)
Next i

Print "Il numero massimo e': "; max

1. Definire l’array
2. Inizializzare l’array con valori casuali
3. Inizializzare max con il primo elemento dell’array
4. Controllare ogni elemento successivo: se l’elemento corrente è maggiore di max, assegnare il nuovo valore a max
5. Stampare il numero massimo