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

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


[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