Método burbuja
Visual Basic.NET
Publicado el 20 de Agosto del 2019 por Anibal
2.718 visualizaciones desde el 20 de Agosto del 2019
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta(1)Dim i, j, n(5), aux As Integer
For i = 1 To 5Console.WriteLine("Ingrese el numero " & i)
n(i) = Console.ReadLine
Next
For i = 1 To 5 For j = 1 To 4If n(j) < n(j + 1) Then
aux = n(j)
n(j) = n(j + 1)
n(j + 1) = aux
End If
Next
Next
Console.Clear()
For i = 1 To 5Console.WriteLine("NO. " & i & "=" & n(i))
Next
Console.ReadKey()
Comentarios sobre la versión: 1.0 (1)