Bidimensionais

Algoritmo "Matriz"
var
valores  : VETOR [1..3,1..3] DE REAL
somaLinha3, somaColuna2, somaDiagPrinc, somaDiagsecu, somaTudo: REAL
i, j: INTEIRO //os índice sempre inteiro

inicio
somaLinha3 <- 0="" p="">somaColuna2 <- 0="" p="">somaDiagPrinc <- 0="" p="">somaDiagsecu <- 0="" p="">somaTudo <- 0="" p="">Para i de 1 ate 3 faca
Para j de 1 ate 3 faca
Escreva("Digite um valor para a matriz")
Leia (VALORES[i,j])
somaTudo <- i="" j="" p="" somatudo="" valores="">se i=3 entao
somaLinha3 <- i="" j="" p="" somalinha3="" valores="">fimse
se j=2 entao
somaColuna2 <- i="" j="" p="" somacoluna2="" valores="">fimse
se i=j entao
somaDiagPrinc <- i="" j="" p="" somadiagprinc="" valores="">fimse
se j=4-i entao
somaDiagsecu <- i="" j="" p="" somadiagsecu="" valores="">fimse
fimpara
fimpara
Para i de 1 ate 3 faca
para j de 1 ate 3 faca
escreval (VALORES[i,j])
fimpara
fimpara
escreval ("Soma de todos os elementos é ", somaTudo)
escreval ("Soma dos elementos da linha 3 é ", somaLinha3)
escreval ("Soma dos elementos da coluna 2 é ", somaColuna2)
escreval ("Soma dos elementos da diagonal principal é ",somaDiagPrinc)
escreval ("Soma dos elementos da diagonal secundária é ",somaDiagsecu)
fimalgoritmo