Ir ao conteúdo
  • Cadastre-se
gabism

pascal/vetores

Recommended Posts

Por favor.. alguém poderia me ajudar?! :wacko:

Faça um programa que receba dez números inteiros e armazene-os em um vetor. O programa deve calcular e mostrar dois vetores resultantes, sendo o primeiro com os números pares e o segundo com os números ímpares do vetor lido.

Agradeço desde já a atenção de todos ^_^

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom, não acho certo eu colocar o programa prontinho aqui pra você, você vai acabar não aprendendo, vou deixar +- aqui como deve ser feito, basta só pensar um pokin e arrumar tudo direitinho e exibir. mais a lógica é assim

program blabla;

type /------aqui ele define os vetores-----/

vet:array [1..10] of integer;

par:array [1..10] of integer;

impar:array [1..10] of integer;

var /---------aqui eu crio a variavel q ira receber o vetor e seus dados ---/

num: vet;

par:vet;

impar:vet;

i: integer;

begin

/---------leitura-----------------/

for i:=1 to 10 do begin

writeln('Digite o numero inteiro');

readln(num);

end;

/------aqui começam os testes-----/

for i := 1 to 10 do

if (num mod 2) = 0 then

par := num

else

impar := num;

end;

espero ter ajudado a clarear a mente.. qq dúvida, só perguntar.;...

t+

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×