PunterosEj5.pas

program PunterosEj5;

uses
    SysUtils;

{ Declaración de constantes }
const
    MAX = 4; { 2. Declaración de constantes }

{ Declaración de tipos }
type
    { 1. Declara un tipo coordenada_3D para puntos con coordenadas x,y,z }


{ Declaración de variables }
var
    { 2. Declara un array de MAX punteros a coordenadas_3D }


{ 3. Crea una coordenada_3D en cada una de las posiciones inicializado 
    todas las coordenadas con números aleatorios }


{ Procedimiento para imprimir una coordenada_3D }


{ * Implementa un procedimiento que muestre por pantalla el contenido de cada posición }


{ 4. Implementa un procedimiento que libere la memoria asignada a una posición }


{ 4.' Implementa un procedimiento que libere la memoria asignada a todas las posiciones }


{ 5. Implementa una función que sume todas las x de las coordenadas }


{ 5.' Implementa una función que sume las coordenadas de todas las posiciones }


{ 6. (Opcional) Implementa un procedimiento que permita añadir una coordenada en la primera 
    posición libre del array}


{ 7. Implementa una función que calcule la máxima coordenada y (debes comprobar  antes,
     pues puede que alguna posición no tenga coordenada y esté a NIL)}


begin

end.