P S E U D O C O D I G O

INICIO
Llenar(A)
Algoritmo quicksort(A,inf,sup)
i<-inf
j<-sup
x<-A[(inf+sup)div 2]
mientras i=<j hacer
  mientras A[i]< x hacer
     i<-i+1
  fin_mientras
  mientras A[j]>x hacer
     j<- j-1
  fin_mientras
  si i=<j entonces
    tam<-A[i]
    A[i]<-A[j]
    A[j]<-tam
    i=i+1
    j=j-1
  fin_si
fin_mientras
si inf<j
   llamar_a quicksort(A,inf,j)
fin_si
si i<sup
   llamar_a quicksort(A,i,sup)
fin_si
FIN