//5.1 - Faça um programa que preencha um vetor com seis //elementos numéricos inteiros. Calcule e mostre: //a) todos os números pares; //b) a quantidade de números pares; //c) todos os números impares; //d) a quantidade de números impares

//5.1 - Faça um programa que preencha um vetor com seis
//elementos numéricos inteiros. Calcule e mostre:
//a) todos os números pares;
//b) a quantidade de números pares;
//c) todos os números impares;
//d) a quantidade de números impares

Algoritmo "questão 5.1semnome"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 23/10/2016
Var
   // Seção de Declarações das variáveis
   vet:vetor[1..6] de inteiro
   i,qtdpar,qtdimpar:inteiro
Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   PARA I:=1 ATE 6 FACA
      ESCREVAL("DIGITE O ",I,"º NÚMERO..")
      LEIA(VET[I])
   FIMPARA
   ESCREVAL
   ESCREVAL("-----------------------------------")
   ESCREVAL("NUMEROS PARES--")
   PARA I:=1 ATE 6 FACA
      SE (VET[I] MOD 2 = 0) ENTAO
         QTDPAR:=QTDPAR+1
         ESCREVA(VET[I]:4)
      FIMSE
   FIMPARA
   ESCREVAL
   ESCREVAL("A QUANTIDADE DE NÚMEROS PARES É: ",QTDPAR)
   ESCREVAL
   ESCREVAL("-----------------------------------")
   ESCREVAL("NUMEROS IMPARES--")
   PARA I:=1 ATE 6 FACA
      SE (VET[I] MOD 2 <> 0) ENTAO
         QTDIMPAR:=QTDIMPAR+1
         ESCREVA(VET[I]:4)
      FIMSE
   FIMPARA
   ESCREVAL
   ESCREVAL("A QUANTIDADE DE NÚMEROS IMPARES É: ",QTDIMPAR)

Fimalgoritmo