Exercício 01 Vetor - Pascal

1) Faça um programa em Pascal que carregue um vetor de seis elementos numéricos inteiros, calcule e
mostre:
a) A quantidade de números pares;
b) Quais os números pares;
c) A quantidade de números ímpares;
d) Quais os números ímpares.

Program Vetor01 ;
var
 i : integer;
 vetor:array[1..6] of integer;
 cont_par,cont_imp: integer;
 Begin
  for i := 1 to 6 do
   Begin
    Write('Informe Vetor ',i,': ');
    readln(vetor[i]);
   end;
   Writeln('Valores Impares'); 
    for i := 1 to 6 do
     Begin
      if (vetor[i] mod 2 = 0) then
       cont_par:= cont_par + 1
      else
      Begin 
        cont_imp:=cont_imp + 1;
        WriteLN(cont_imp);
      end;  
     end;
  Writeln('Qtd de Valores Pares: ',cont_par); 
  Writeln('Qtd de Valores Impares: ',cont_imp);
 Writeln('                  by Marcus Vinicius'); 
 End.

Categories: Pascal , Programação