'Primer 12d: bubble sort Sub bubblesort(niz() As Integer, n As Integer) Dim i As Integer Dim j As Integer Dim pom As Integer For i = n - 1 To 1 Step -1 For j = 1 To i If niz(j) > niz(j + 1) Then ' poredimo susedne elemente pom = niz(j) niz(j) = niz(j + 1) niz(j + 1) = pom End If Next Next End Sub