Imports system Public Module Module1 Sub Main() Dim i,n As Integer Dim suma As Integer =0 Dim edad As Integer Dim promedio As double Console.Write(" Digite cantidad de estudiantes: ") n = Console.ReadLine() For i = 0 To n -1 Step 1 Console.Write(" Ingrese edad: ") edad= Console.ReadLine() suma=suma + edad Next promedio=(suma/n) Console.WriteLine("El promedio es: "& promedio ) Console.ReadLine() End Sub End Module