eliminar elementos de un arreglo, Pascal

eliminar elementos de un arreglo

//fpc 3.0.0

program HelloWorld;
const max = 4;
type tipodatovector = integer;
type vector = array [1..max] of tipodatovector;

procedure LLenarArreglo(var arreglo:vector; n:integer);
var i:integer;
begin
    for i:= 1 to n do
    begin
        read(arreglo[i]);
    end;
end;
procedure mostrar(arreglo:vector; n : integer);
var i:integer;
begin
    for i:=1 to n do
    begin
        write(arreglo[i],' ');
    end;
    writeln;
end;
procedure eliminar (var arreglo:vector ;var n:integer; indiceAEliminar:integer);
var i:integer;
begin
    //indice a eliminar, es la posicion del arregloque se va a eliminar
    for i:= indiceAEliminar to n do 
    begin
        arreglo[i]:= arreglo[i+1];
    end;
    n:=n-1;
end;

var arreglo:vector;
    n:integer;
    posicion:integer;
begin
    readln(n);//tamaño logico vector, en este caso le ingresamos 4
    readln(posicion); //la posicion que se va a eliminar
    LLenarArreglo(arreglo,n);//llenamos el arreglo
    mostrar(arreglo,n);//mostramos el arreglo completo
    eliminar(arreglo,n,posicion);//se elimina la posicion ingresada
    mostrar(arreglo,n);//se muestra el arreglo con la posicion eliminada
    
end.


run \| edit \| history \| help	0