ayudenme por favor compañeros....!!!!

Jose R
26 de Enero del 2006
me podrian enviar en pseudocodigo el algoritmo que resuelva la media aritmetica de 50 numeros.... por favor ayudenme por que lo necesito urgente... gracias hasta luego.

mvallejos
26 de Enero del 2006
Dim Media as Double
Dim Total as Double
Dim i as Integer
Total = 0
For i = 1 to 50
Total = Total + Vector(i)
Next i
Media = Total / 50

Supongamos ahora que tenemos un vector dinámico, es decir, de dimensión variable.

Total = 0
For i = 0 to Ubound(Vector)
Total = Total + Vector(i)
Next i
Media = Total / ( Ubound(Vector) + 1 )


Saludos