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