Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Jackeline Navarro

Soma de vetores, VisualG

Recommended Posts

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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.