Dizer quais números são pares e quais são impares no portugol

[Matheus Lage 0]

Olá, estou tendo dificuldade em concluir um exercício no qual, através da introdução de 7 valores por um vetor, tenho que dizer quais são os pares e quais são os ímpares, cheguei até aqui:

 

inicio

inteiro numero[7] , valor , par[7] , impar[7]

para valor de 1 ate 7 passo 1

escrever "Digite o número" , valor , ":"

ler numero[valor]

proximo

para valor de 1 ate 7 passo 1

se (numero[valor] % 2 = 0) entao

par[valor] <- numero[valor]

senao

impar[valor] <- numero[valor]

fimse

proximo

escrever "Números pares:" , par[valor]

escrever "Números ímpares:" , impar[valor]

fim

 

Agradeço toda a ajuda possível

[Sergio Cavalcante 6]

algoritmo "Ajude o seu proximo"

// Função :

// Autor :

// Data : 23/04/2014

// Seção de Declarações

var

num :vetor[1..7] de inteiro

i:inteiro

inicio

para i de 1 ate 7 faca

Escreval("Informe o ",i ,"ºnumero")

leia(num)

fimpara

para i de 1 ate 7 faca

se(nummod 2=0) entao

Escreval(num, " par na" ,i,"ºposicão")

senao

Escreval(num, " impar na" ,i,"ºposicão")

fimse

fimpara

fimalgoritmo

cara repete isso varias vezes..invente outras maneiras , não só copie é cole mas acompanhe como cada coisa se comporta dentro do algoritmo talvez você consiga criar novas maneiras de implementação..