Soma de vetores, VisualG

[Jackeline Navarro 0]

Escrever um algoritmo que leia uma matriz MxN (no máximo 10 x 10) com números inteiros e positivos e depois calcule e imprima a soma dos valores ímpares e a soma dos valores pares.

Estou tendo um problema com a soma dos números ímpares e pares, o valor da soma da errado, alguém pode me dizer qual o erro?

algoritmo "soma de pares e impares"

var

matriz: vetor[1..4, 1..4] de inteiro

VP, VI: vetor[1..50] de inteiro

i, j,Par, Impar, somapar, somaimpar: inteiro

inicio

Par<-0

Impar<-0

somapar <- 0

somaimpar <- 0

para i de 1 ate 4 faca

para j de 1 ate 4 faca

escreva("Digite os numeros: [",i,",",j," ] ")

leia(matriz[i,j])

fimpara

fimpara

escreva(" ")

escreval("Matriz informada")

para i de 1 ate 4 faca

para j de 1 ate 4 faca

escreva(matriz[i,j]," ")

fimpara

escreval(" ")

fimpara

para i de 1 ate 4 faca

para j de 1 ate 4 faca

se (matriz[i,j]%2=0) entao

Par<-Par+1

VP[Par]<-matriz[i,j]

fimse

se (matriz[i,j]%2<>0) entao

Impar<-Impar+1

VI[impar]<-matriz[i,j]

somapar <- somapar + vp

somaimpar <- somaimpar + vi

fimse

fimpara

fimpara

escreval ("Valores pares:")

para i de 1 ate Par faca

escreva(VP)

fimpara

escreval("")

escreval ("Valores ímpares:")

para i de 1 ate Impar faca

escreva(VI)

fimpara

escreval

escreval ("Soma dos numeros pares:", somapar)

escreval ("Soma dos numeros impares:", somaimpar)

fimalgoritmo

 

[KhaosDoctor 242]

Você pode jogar

somapar <- somapar + vp

somaimpar <- somaimpar + vi

Dentro dos respectivos If's, não precisa criar outra matriz para isso.