somar diagonal da matriz

[Letz 0]

Olá boa tarde, preciso criar uma matriz 8x8 e somar sua diagonal, fiz assim:

algoritmo "matriz"

// Função :
// Autor :letz
// Data : 05/10/2012
// Seção de Declarações
var
matrizA:vetor[1..3,1..3] de real
somaDiag1:real
linha,coluna:inteiro

inicio
// Seção de Comandos
para linha de 1 ate 3 faca
  para coluna de 1 ate 3 faca
     escreva("Digite os numeros: [linha",linha, " + coluna", coluna, " ] ")
     leia(matrizA[linha,coluna])
  fimpara
fimpara

para linha de 1 ate 3 faca
  para coluna de 1 ate 3 faca
     escreva(matrizA[linha,coluna])
  fimpara
  escreval("")
fimpara

para linha de 1 ate 3 faca
  para coluna de 1 ate 3 faca
     somaDiag1<-(matrizA[1,1] + matrizA[2,2] + matrizA[3,3])

  fimpara
fimpara
escreval("—————————————")
escreval("Soma da Diagonal 1 é = ", somaDiag1)
escreval("—————————————")
fimalgoritmo 

 

 

Primeiro testei ela 3x3, deu certo, mas quando mudei ela pra 8x8, mesmo somando até [8,8], ela só aceita a primeira linha, depois da erro. Também queria saber se tem como ao invés de somar [1,1] + [2,2] +[3,3]..poderia colocar um se i = j entao i+j, tentei de várias maneiras, mas da erro de sintaxe

 

Obrigada.

[Guilherme_90 33]

Eu pensei em verificar quando é par e quanto é ímpar, acho que não dá muito certo.