' Chave de totoloto - 1

' Dimensionamento por excesso:
DIM n(10)

CLS

RANDOMIZE TIMER

n(1) = 1 + INT(49 * RND)
i = 2
DO
    ' Gera‡„o de um valor aleat¢rio
    n(i) = 1 + INT(49 * RND)

    ' Verifica se o valor gerado j  est  escolhido...
    repetido = 0    ' A vari vel repetido ‚ uma vari vel 'flag'
    FOR j = 1 TO i - 1
        IF n(j) = n(i) THEN repetido = 1
    NEXT j

    ' ... se n„o est ,
    IF (repetido = 0) THEN
        i = i + 1               'incrementa o contador de elementos da chave
    ELSE
        PRINT "Repetido !"      'se est  repetido, imprime "Repetido !"
    END IF
LOOP WHILE (i < 7)

PRINT "Chave do totoloto"
FOR i = 1 TO 6
    PRINT n(i)
NEXT i

' Exerc¡cio:
' 1. Execute o programa v rias vezes, gerando v rias chaves de totoloto.
'    Quantas repeti‡”es ocorrem ?
' 2. Acrescente/modifique o programa de forma a que a chave seja apresentada
'    por ordem crescente

END