Ejercicios De Free Basic

1. Programa que permite ingresar e imprimir cierta cantidad de números y luego realizar la búsqueda de cualquiera de los números ingresados. Imprime el número y la posición en donde se encuentra elnúmero buscado.
DIM Numeros(100) AS INTEGER
INPUT "cuantos números va ingresar ", n
DO
INPUT "NÚMERO: ", num
        IF num > 100 AND num < 500 THEN
                i = i + 1
               Numeros(i) = num
        END IF
LOOP WHILE i Numeros(i) THEN
           men = Numeros(i)
           PosMen = i
        END IF
NEXT
PRINT "El mayor es: "; may, "Posición ", PosMay
PRINT "El Menores: "; men, "Posición ", PosMen
3. Programa que soporta ingresar e imprimir cierta cantidad de números mayores de 100 y menores de 500. Permite realizar la búsqueda de un número cualquieraimprimiéndolo junto a su posición.
DIM Numeros(100) AS INTEGER
INPUT "cuantos números va ingresar ", n
DO
INPUT "NÚMERO : ", num
        IF num > 100 AND num < 500 THEN
                i = i + 1                Numeros(i) = num
        END IF
LOOP WHILE i Vec1(j + 1) THEN
                    temp = Vec1(j)
                    Vec1(j) = Vec1(j + 1)
                    Vec1(j + 1) = temp
               ENDIF
    NEXT
NEXT
FOR I = 1 TO 10
        PRINT "Número: ", I, Vec1(I)
NEXT
27. Escribir un programa que ordene descendentemente 10  números ingresados por el teclado.
DIM Vec2(10) AS DOUBLECLS
Tam = 10
FOR i = 1 TO 10
        INPUT "Ingrese un N£mero: ", Num
        Vec2(i) = Num
NEXT
FOR i = 1 TO Tam - 1
    FOR j = 1 TO Tam - 1
               IF Vec2(j) < Vec2(j + 1) THEN                    temp = Vec2(j)
                    Vec2(j) = Vec2(j + 1)
                    Vec2(j + 1) = temp
               END IF
    NEXT
NEXT
PRINT "==ORDENACIÓN DESCENDENTE=="
FOR i = 1 TO 10        PRINT "Numero", Vec2(i)
NEXT
28. Escribir un programa que permita pasar un número natural cualquiera a binario.
DIM Num, Cuo, Res AS INTEGER
DIM NN AS STRING
CLS...