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)
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