Buen día a todos
Podrían apoyarme a desarrollar el código para calcular la media, mediana y moda de una cantidad n de números ingresados con teclado?
Gracias de antemano
Anexo un avance de mi código, cualquier sugerencia es bienvenida
Saludos
Module Module1
Sub Main()
Dim menu As String = "MENU"
Dim formato As String = String.Format(" {0,10}", menu)
Dim opcion As Integer
Dim suma, prom As Double
Dim datos As Double
Dim cantidad As Double
Dim contador As Integer
Console.WriteLine(formato)
Console.WriteLine(" 1.- Calcular Media ")
Console.WriteLine(" 2.- Calcular Mediana ")
Console.WriteLine(" 3.- Calcular Moda")
opcion = Console.ReadLine()
Select Case opcion
Case 1
Console.WriteLine(" Cuantos datos ingresara? ")
cantidad = Convert.ToInt32(Console.ReadLine())
suma = 0
contador = 0
While cantidad > contador
contador = contador + 1
Console.WriteLine("Ingrese los datos")
datos = Convert.ToDouble(Console.ReadLine())
suma = suma + datos
End While
prom = suma / cantidad
Console.WriteLine("El promedio es: {0} ", prom)
End Select
Console.ReadKey()
End Sub
End Module
