algoritmo totpar na posição i

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

algoritmo "semnome"
 // Função :
 // Autor :
 // Data : 19/12/2015
 // Seção de Declarações
 var
 val: vetor[1..6] de inteiro
 i, totpar:inteiro
 inicio
 Para i <- 1 ate 6 faca
 
 escreva("Digite o", i, "0. valores")
 leia(val[i])
 fimpara
 
 
 
 Para i <- 1 ate 6 faca
 
 se(val[i] % 2 =0) entao
 
 totpar <- totpar + 1
 
 escreva("Digite o valor na posicao", i)
 
 fimse
 
 fimpara
 
 escreva("O total de pares", totpar)
 
 fimalgoritmo