Fuente: Borrar un elemento de un array

Borrar un elemento de un array

(Borrar un elemento de un array, desplazando hacia la izquierda los elementos que le siguen y disminuyendo el contador de posiciones ocupadas)
Lenguaje: Pascal

(* Borrar un elemento de un array *)
 
program BorrarDeArray;
 
const
    Max = 6;
 
var
    datos: array[1..Max] of integer;
    i: integer;
    tamanyo: integer;

begin
    tamanyo := 6;
    datos[1] := 10;
    datos[2] := 20;
    datos[3] := 15;
    datos[4] := 12;
    datos[5] := 30;
    datos[6] := 8;

    (* Mostramos los datos *)
    for i := 1 to tamanyo do
        write( datos[i], ' ');
    writeLn;

    (* Borramos el tercer dato *)
    for i := 3 to tamanyo do
        datos[i] := datos[i+1];
    tamanyo := tamanyo - 1;

    (* Volvemos a mostrar los datos *)
    for i := 1 to tamanyo do
        write( datos[i], ' ');
    writeLn;

end.

Tags:   array,arreglo,vector,matriz,borrar,eliminar

Volver a la lista de fuentes

 

En los foros