pascal/vetores

[Visitante: gabism]

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

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

[fabiojansen]

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+