{EJERCICIO 2 DEL EXAMEN DEL 11 DE SEPTIEMBRE DE 1.999}

{ El tipo vector est  definido as¡:                }
{ tpvector = Array[1..2*matriz.dim-1 of Integer    }
{ ya que una matriz cuadrada tiene 2n-1 diagonales }

Procedure suma_diagonales(var matriz : tpmatriz):tpvector;
Var
   x , y , a , b : Integer;
Begin
   For i = 1 To matriz.dim Do
       Begin
            suma_diagonales[i] := 0;
       End;
   i := 1;
   For i = 1 To matriz.dim Do
       Begin
            For j = 1 To matriz.dim Do
                Begin
                     suma_diagonales[a] := suma_diagonales[a] + matriz.datos[i,j];
                     a = a + 1;
                End;
            b := b + 1;
            a := b;
            j := 1;
       End;
End;