Algoritmo Total de pares

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

algoritmo "Valores Pares"
// Função :
// Autor :
// Data : 13/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. valor: ")
 leia(Val[i])
 fimpara
 
 Para i <- 1 ate 6 faca
 Se (Val[i] % 2 = 0 ) entao
 Totpar <- Totpar + 1
 escreval("Valor Par na posição", i)
 fimse
 fimpara
 escreval("O total de pares", Totpar)
fimalgoritmo
 
fimalgoritmo