Lista de Matriz

1

Algoritmo "Questao1"

var

m: vetor [1..5,1..5] de inteiro

x,y,r: inteiro

inicio

para x de 1 ate 5 faca

para y de 1 ate 5 faca

escreva("digite o numero da posição",x,",",y," da matriz: ")

leia (m[x,y])

fimpara

fimpara

para x de 1 ate 5 faca

para y de 1 ate 5 faca

se (m[x,y]%2 = 1) entao

r<-r+m[x,y]

fimse

fimpara

fimpara

escreval("a soma dos números ímpares fornecidos: ")

escreval(r)

escreval("a soma de cada uma das 5 colunas: ")

para x de 1 ate 5 faca

para y de 1 ate 5 faca

r<-r+m[x,y]

fimpara

escreval("a soma da coluna",y," é: ", r)

r<-0

fimpara

escreval("a soma de cada uma das 5 linhas: ")

para x de 1 ate 5 faca

para y de 1 ate 5 faca

r<-r+m[x,y]

fimpara

escreval("a soma da linha",x," é: ", r)

r<-0

fimpara

fimalgoritmo

algoritmo "Questao2"

var

m: vetor [1..10,1..10] de inteiro

mma,mme: vetor [1..10] de inteiro

x,y,a,b: inteiro

inicio

para x de 1 ate 10 faca

para y de 1 ate 10 faca

escreva("digite o elemento da posição",x,",",y," da matriz: ")

leia (m[x,y])

fimpara

fimpara

para x de 1 ate 10 faca

a<-m[x,1]

para y de 1 ate 10 faca

se(m[x,y] > a) entao

a<-m[x,y]

fimse

fimpara

mma[x]<-a