vector

Question

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)

Answer 1

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

 

Using foreach with Arrays

saludos

---

Leandro Tuttini

Blog
Buenos Aires
Argentina