no entiendo bien tu pregunta, pero la diagonal principal de tu array esta dada por un las casillas (1,1) (2,2) ... (n,n) por lo que puedes obtener lo que esta en la diagonal principal haciendo un ciclo de una variable asi:
Código:
For i=1 to renglones
valor=tu_array(i,i)
next
espero haber entendido