Exercício matrizes Adelaide 30/06/2011

Escreva um algoritmo que leia uma matriz valores [3,3] e calcule as somas:
a) da linha 3 de valores;
b) da coluna 2 de valores;
c) de todos os elementos da matriz.


Resposta da a:
algoritmo "linha3_matriz"
// Função :
// Autor :
// Data : 01/07/2011
// Seção de Declarações
var
soma,res,i,j:inteiro
matriz: vetor [1..3,1..3]de inteiro
inicio
// Seção de Comandos
para i de 1 ate 3 faca
para j de 1 ate 3 faca
Escreval ("Digite um número")
Leia (matriz[i,j])
Se (i=3) entao
res<-(matriz[i,j])
Fimse
soma<-res+soma
Fimpara
Fimpara
Escreval ("A soma dos elementos da 3ª linha é:" ,soma)
fimalgoritmo


Resposta da b:
algoritmo "coluna2_matriz"
// Função :
// Autor :
// Data : 01/07/2011
// Seção de Declarações
var
soma,res,i,j:inteiro
matriz: vetor [1..3,1..3]de inteiro
inicio
// Seção de Comandos
Soma<-0
para i de 1 ate 3 faca
para j de 1 ate 3 faca
Escreval ("Digite um número")
Leia (matriz[i,j])
Se (j=2) entao
res<-(matriz[i,j])
Fimse
Fimpara
soma<-soma+res
Fimpara
Escreval ("A soma dos elementos da 2ª coluna é:" ,soma).
fimalgoritmo

Resposta da c:
algoritmo "matriz_total"
// Função :
// Autor :
// Data : 01/07/2011
// Seção de Declarações
var
soma,res,i,j:inteiro
matriz: vetor [1..3,1..3]de inteiro
inicio
// Seção de Comandos
Soma<-0
para i de 1 ate 3 faca
para j de 1 ate 3 faca
Escreval ("Digite um número")
Leia (matriz[i,j])
Se (i>=1)ou(i<=3) entao
res<-(matriz[i,j])
soma<-soma+res
Fimse
Fimpara
Fimpara
Escreval ("A soma de todos os elementos da matriz é:" ,soma).
fimalgoritmo