Visual Basic - Enunciados visual basic

Crear una variable entera tipo arreglo llamada CONTE

Crear una variable decimal para guardar la media llamada MEDIA

Crear una variable entera para guardar un valor llamada VALOR

Pedir un numero y guardarlo en REPE

 comenzar un CICLO = 1 hasta CICLO > REPE

  pedir un numero y guardarlo en CONTE(CICLO)

  MEDIA = MEDIA + CONTE (CICLO)

 repetir CICLO

 *Hacer un método burbuja o el que mejor te parezca

 mostrar el valor de la media MEDIA / REPE

 Comenzar un ciclo desde CICLO  = 1 hasta CICLO > REPE

  mostrar el valor de CONTE (CICLO)

 repetir CICLO

Crear una variable MENOR con el valor de 99

Crear una variable MAYOR con el valor de 0

Crear una variable VALOR para guardar lo que se capture

Comenzar un CICLO = 1 hasta que CICLO >10

 Leer el numero y guardarlo en VALOR

 Comparamos si VALOR< MENOR

  si es menor entonces asignamos MENOR = VALOR

 fin de la comparación

 Comparamos si VALOR> MAYOR

  si es mayor entonces asignamos MAYOR = VALOR

 fin de la comparación

Repetir CICLO

 Comparamos si MENOR = MAYOR

  si es igual decimos que el numero mayor y menor es el mismo

 en caso contrario

  mostramos el numero MAYOR

  mostramos el numero MENOR

 Fin de la comparación

Dim array As Integer

Dim i As Integer

Dim As Integer num, suma

Dim promedio As Single

Input "Cuantos numeros va a procesar:", num

ReDim array(num)

For i = 1 To num

    Input "Digite un numero:", array(i)

    suma = suma + array(i)

Next i

promedio = suma / num

Print

Print "Los numeros mayores a la media son:";

For i = 1 To num

    If array(i) > promedio Then

        Print array(i);

    End If

Next i