NOTAS:
  Ordenamiento de la burbuja. Algoritmo mejorado
  n : cantidad de elementos
  v[] : arreglo que contiene los elementos a ordenar

procedure burbuja
  i = 1
  sw = TRUE
  while sw AND i<n do
    sw = FALSE
    for j=1 to n-i do
      if v[j] > v[j+1] then
        aux = v[j]
        v[j] = v[j+1]
        v[j+1] = aux
        sw = TRUE
      end if
    end for
    i = i +1
  end while
end burbuja