CLS
DIM a(10), max AS INTEGER

FOR i = 1 TO 10
        a(i) = INT(RND * 100 - 10)
        PRINT a(i)

        IF i = 1 OR max < a(i) THEN
                max = a(i)
        END IF
NEXT i

PRINT "MAX: ", max