none
vector RRS feed

  • Pregunta

  • hola quiero calcular el promedio de 50 vectores y me tire lo numero q son mayores al promedio

     Dim e(50) As Integer
                        Dim promedio As Integer = 0
                        Dim cont As Integer
                        cont = 0
                        For i As Integer = 0 To e.Length - 1
                            promedio = promedio + e(i)
                            For w = 0 To 50
                                If e(i) > promedio Then
                                    cont = cont + 1
                                End If
                            Next
                        Next
                        WriteLine("El promedio es " & promedio)
                        WriteLine("La cantida mayor que el promedio son " & cont)

    miércoles, 15 de diciembre de 2010 3:58

Todas las respuestas

  • hola

    podrias suar algo como esto

     

    Dim e(50) As Integer
    Dim promedio As Integer = 0
    Dim cont As Integer = 0

    For Each item As Integer In e
        promedio = promedio + item
    Next

    For Each item As Integer In e
        If item > promedio Then
            cont = cont + 1
        End If
    Next

    WriteLine("El promedio es " & promedio)
    WriteLine("La cantida mayor que el promedio son " & cont)

     

     

    tambien en lugar de esta linea

    promedio = promedio + item

    podrias usar

    promedio += item

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    miércoles, 15 de diciembre de 2010 4:10