Título: efectuar un algoritmo q reciba los 10 elementos de un arreglo entero Publicado por: Mr.MJ en 24 Octubre 2012, 20:33 pm Buenas quisiera saber si me pueden ayudar deseo realizar un algoritmo q reiciba los 10 elementos de un arreglo entero y que elimine a los elementos duplicados.
Tengo hecho avanzado algo pero en este caso yo coloco la posicion del dato a borrar pero no me sale el comparar cada elemento les dejo una parte de lo que estaba avanzado espero puedan ayudarme :-/ var a:vector[10] numerico i,pos,num:numerico inicio cls() //ingreso de elementos num=10 desde i=1 hasta num { imprimir("A[",i,"]=") leer(a) } imprimir("Ingrese la posicion de borrado") leer(pos) si(pos>0 and pos<=num) { borrar(a,pos,num) //recorrido de comprobacion desde i=1 hasta num {imprimir("\nA[",i,"]=",a)} sino imprimir("Posicion fuera de rango") } fin subrutina borrar(ref x:vector * numerico;ref k,n:numerico) var j:numerico inicio desde j=k hasta n-1 {x[j]=x[j+1]} n=n-1 fin |