Informatica

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
* Ayuda con los deberes Resolvemos 1000 tareas cada día! Rápido y gratis
Misdeberes.esEnlaces patrocinados
INPUT "cuantos números va ingresar ", n
DOINPUT "NÚMERO: ", num
        IF num > 100 AND num < 500 THEN
                i = i + 1
                Numeros(i) = num
        END IF
LOOP WHILE i <= n
'IMPRIMIENDO LOS NÚMEROS
FORi = 1 TO n
        PRINT Numeros(i)
NEXT
'Busqueda
INPUT "dame un valor a buscar ", busca
FOR i = 1 TO n
        IF busca = Numeros(i) THEN
                PRINT "Posicion ", i, " Número: ",Numeros(i)
                EXIT FOR
        END IF
NEXT
2. Programa que permite ingresar 8 números y realizar la búsqueda del mayor y menor imprimiendo también su posición.
DIM Numeros(1 TO 8) ASINTEGER
FOR i = 1 TO 8
INPUT "NÚMERO : ", num
                Numeros(i) = num
NEXT
'IMPRIMIENDO LOS NÚMEROS
FOR i = 1 TO 8
        PRINT Numeros(i)
NEXT
'Busqueda del mayor
may = 0
men =10000
FOR i = 1 TO 8
        IF may < Numeros(i) THEN
           may = Numeros(i)
           PosMay = i
        END IF
        IF men > Numeros(i) THEN
           men = Numeros(i)           PosMen = i
        END IF
NEXT
PRINT "El mayor es: "; may, "Posición ", PosMay
PRINT "El Menor es: "; men, "Posición ", PosMen
3. Programa que soporta ingresar e imprimir cierta cantidad de númerosmayores de 100 y menores de 500. Permite realizar la búsqueda de un número cualquiera imprimiéndolo junto a su posición.
DIM Numeros(100) AS INTEGER
INPUT "cuantos números va ingresar ", n
DOINPUT "NÚMERO : ", num
        IF num > 100 AND num < 500 THEN
                i = i + 1
                Numeros(i) = num
        END IF
LOOP WHILE i <= n
'IMPRIMIENDO LOS...