Título: efectuar un algoritmo q reiciba los 10 elementos de un arreglo entero y eliminar Publicado por: Mr.MJ en 24 Octubre 2012, 20:29 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
inicio desde j=k hasta n-1 {x[j]=x[j+1]} n=n-1 fin [MOD] Tienes otro hilo abierto con el mismo tema. http://foro.elhacker.net/programacion_general/efectuar_un_algoritmo_q_reciba_los_10_elementos_de_un_arreglo_entero-t374243.0.html;msg1787315;boardseen#new |