5_11

algoritmo "5_11"
var
   m: vetor[0..10, 0..10] de inteiro
   l, c, s, ss:inteiro
inicio
      l <- 0
      enquanto (l <= 10) faca
               c <- 0
               enquanto (c <= 10) faca
                        escreva("Digite o valor da posição [",l,", ",c,"]: ")
                        leia(m[l, c])
                        c <- c + 1
               fimenquanto
               l <- l + 1
      fimenquanto
      ss <- 0
      s <- 0
      l <- 0
      enquanto (l <= 10) faca
               c <- 0
               enquanto (c <= 10) faca
                        se (l = c) entao
                           s <- s + m[l, c]
                        fimse
                        se (l+c = 10) entao
                           ss <- ss + m[l, c]
                        fimse
                        c <- c + 1
               fimenquanto
               l <- l + 1
      fimenquanto
      escreval("A soma dos elementos da diagonal primária é igual a: ", s)
      escreval("A soma dos elementos da diagonal secundária é igual a: ", ss)
fimalgoritmo