Se quiser, baixe esse app ¬ Visualg, copie o código, cole, teste, altere, treine, seja feliz! Sorria! Mesmo, se o mudo fizer careta (RS!).
Exercícios
algoritmo "Total Pares"
var
n: vetor[1..7] de Inteiro
i, TotPar: Inteiro
i, TotPar: Inteiro
inicio
Para i <- 1 ate 7 faca
LimpaTela
Escreva("Digite o ", i, "o. valor: ")
Leia(n[i])
FimPara
Leia(n[i])
LimpaTela
Para i <- 1 ate 7 faca
Se (n[1] % 2 = 0) entao
FimPara
TotPar <- TotPar + 1
Escreval ("Valor ", n[1], " na posição ", i, " e PAR!")
FimSe
Escreval ("Valor ", n[1], " na posição ", i, " e PAR!")