Algoritmo valores 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])
 se (Val[i] % 2 = 0) entao
 Totpar <- Totpar + 1
 fimse
 fimpara
 
 escreval("O total de pares foi ", Totpar)
fimalgoritmo
 
fimalgoritmo