valores pares e ímpares existem no vetor.
Entendendo...
Vamos criar um vetor com 20 posições e ler cada uma delas, e depois mostrar na tela, sem novidades =)
Teremos uma condição onde validaresmo os números pares e impares, pegaremos o resto da divisão do número lido, se for = zero será par senao impar.
Muito Semelhante ao Ex. 05.
Uma possível solução:
algoritmo "Ex.08 - Números pares e ímpares de um vetor"
// Autor :Eduardo V. de Souza
// Data : 28/06/2011
var
//Declaração das variáveis
vet:vetor[1..20] de inteiro
i,cont_par,cont_imp:inteiro
inicio
//inicializando os contadores
cont_imp<-0
cont_par<-0
escreval("Digite todos os números")
para i de 1 ate 20 faca
//lendo cada elemento do vetor
leia(vet[i])
//aqui todo o calculo, se nao existir resto na divisao = par
//senao impar
se (vet[i]%2) = 0 entao
//se par, o contador recebe seu valor + 1
cont_par<-cont_par+1
senao
//se par, o contador recebe seu valor + 1
cont_imp<-cont_imp+1
fimse
fimpara
// eu sei que bagunça mas estou mostrando na tela todos os lidos
para i de 1 ate 20 faca
escreval("Elemento nº ",i," do vetor = ",vet[i])
fimpara
// e finalmente mostrando o resultado
escreval("O total de números pares lidos foi ",cont_par)
escreval("O total de números ímpares lidos foi ",cont_imp)
fimalgoritmo
Em execução: