Buskar # menor en Vector
Por favor nesecito hacer la buskeda del numero menor y mayor en un vector dinamico ........ es urgente .. se los agradesere muxo chau besos ((( muach )))
Supongo que este vector dinámico no está ordenado de modo que solo se me ocurre hacer una busqueda secuencial.
Ejemplo
Dim i as integer
Dim Menor as Long
Dim Mayor as Long
' Inicializar las variables controladoras
Menor = Vector(0)
Mayor = Vector(0)
For i=0 to Ubound(Vector)
If menor > Vector(i) Then
' Si Menor es mayor que el elemento, se
' cambia el menor
menor = Vector(i)
end if
If mayor < Vector(i) Then
' Si Mayor es menor que el elemento, se
' cambia el mayor
mayor = Vector(i)
end if
Next i
espero que sea esto lo que buscabas
Saludos
Ejemplo
Dim i as integer
Dim Menor as Long
Dim Mayor as Long
' Inicializar las variables controladoras
Menor = Vector(0)
Mayor = Vector(0)
For i=0 to Ubound(Vector)
If menor > Vector(i) Then
' Si Menor es mayor que el elemento, se
' cambia el menor
menor = Vector(i)
end if
If mayor < Vector(i) Then
' Si Mayor es menor que el elemento, se
' cambia el mayor
mayor = Vector(i)
end if
Next i
espero que sea esto lo que buscabas
Saludos
