Total de pares com vetores

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "semnome"
// Função :
// Autor :
// Data : 02/07/2015
// Seção de Declarações 
var
 val: vetor[1..7] de inteiro
 i,totpar: inteiro
inicio
// Seção de Comandos 
 totpar<-0
 para i<-1 ate 7 faca
 escreva("Digite o ",i,"° valor: ")
 leia(val[i])
 fimpara
 
 para i<-1 ate 7 faca
 se(val[i] % 2 = 0) entao
 totpar<- totpar+1
 escreval("Valor PAR na posição ",i)
 fimse
 fimpara
 escreval("O total de pares foi ",totpar)
fimalgoritmo