Mensajes

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.]

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