Impar ou Par em Pascal

Na dúvida do leitor Gabriel vamos a mais uma ajudinha.

"Tenho que fazer um programa que recebe 5 números inteiros como dado de entrada.

Tenho que saber quantos números impares foram digitados e qual é o maior número par digitado."

Um programa bem simples, mas que vale a pena o seu estudo:

Program Impar_Par;
Uses Crt;
var
n : Array [1..5] of Integer; // Armazena os 5 numeros
maiorpar : Integer;
qimpar : Integer;
i : Integer; // Nosso contador de 1 a 5
begin
ClrScr;
// Entrada dos Dados
WriteLn ('Digite 5 numeros inteiros:');
for i := 1 to 5 do
ReadLn (n[i]);
// Calculos
// Maior Par
maiorpar := 0;
for i := 1 to 5 do
if ((n[i] mod 2)=0) and (n[i]>maiorpar) then maiorpar := n[i];
// Quantidade de Impares
qimpar := 0;
for i := 1 to 5 do
begin
if ((n[i] mod 2)<>0) then
qimpar := qimpar + 1;
end;
// Resultados
WriteLn ('Foram ',qimpar,' numero(s) impar(es).');
WriteLn ('O maior numero para eh ',maiorpar);
ReadLn;
End.

Nenhum comentário:

Postar um comentário