SOMA / MÉDIA / ELEMENTOS PARES

algoritmo "semnome"

var

matriz : vetor[1..4, 1..3] de inteiro
i, j, soma : inteiro

inicio

aleatorio 1,10

para i de 1 ate 4 faca
   para j de 1 ate 3 faca
      escreval("informe o elemento da matriz [",i,",",j,"]")
      leia(matriz[i,j])
   fimpara
fimpara

para i de 1 ate 4 faca
   para j de 1 ate 3 faca
      escreva(matriz[i,j])
   fimpara
   escreval("")
fimpara

para i de 1 ate 4 faca
   para j de 1 ate 3 faca
         soma <- soma + matriz[i,j]
   fimpara
fimpara
escreval("A soma dos elementos da matriz é ", soma)
escreval("A média dos elementos da matriz é ", soma/((i-1)*(j-1)))
escreval("Os elementos pares da matriz são:")
para i de 4 ate 1 passo -1 faca
   para j de 3 ate 1 passo -1 faca
         se(matriz[i,j] mod 2 = 0) entao
              escreva(matriz[i,j])
         fimse
   fimpara
fimpara
fimalgoritmo