Método burbuja![gráfica de visualizaciones gráfica de visualizaciones](/img/img.png?11.51)
Visual Basic.NET
Publicado el 20 de Agosto del 2019 por Anibal
2.323 visualizaciones desde el 20 de Agosto del 2019
![Captura-de-pantalla-3](/usr/346000/346293/5d5bf8adeb441-Captura-de-pantalla-3.png)
Dim i, j, n(5), aux As Integer
For i = 1 To 5
Console.WriteLine("Ingrese el numero " & i)
n(i) = Console.ReadLine
Next
For i = 1 To 5
For j = 1 To 4
If 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 5
Console.WriteLine("NO. " & i & "=" & n(i))
Next
Console.ReadKey()
Comentarios sobre la versión: 1.0 (1)