[Vetor] Imprimir apenas os N° Impares

[Martinsrj 0]

Olá pessoal, beleza?

Solicito um help sobre o codigo abaixo.

Minha intenção é de imprimir na tela apenas os numeros impares, porem isso não está ocorrendo.

CODIGO EM PASCAL

Program ImparVet;
Uses crt;
Var
x, y : array [1..10] of integer;
I, R : integer;
begin
   Writeln ('Programa que imprime em tela apenas os numeros impares.');
   writeln;
For I := 1 to 10 do
   begin
   Writeln ('Digite o ', I, 'a numero:');
   readln (x[I]);
   End;
for I := 1 to 10 do
   begin
	  R := I mod 2;
	  If (R <> 0) then
	  y[I] := x[I];
   End;
For I := 1 to 10 do
   Begin
	  Writeln ('Numero impar: ', y[I]);
readkey;
End.

[page_up 0]

para ser sincero...meus conhecimentos de pascal não são grande coisa http://forum.imasters.com.br/public/style_emoticons/default/pinch.gif

 

mais você não acha melhor imprimir o numero na tela dentro do IF...quando ele acha o numero impar ???

[gRoOvE 0]

Você está pegando apenas o índice e não o vetor, repare ali onde está comentado.

 

for I := 1 to 10 do
   begin
	  R := I mod 2; //R := x[I] mod 2;
	  If (R <> 0) then
	  y[I] := x[I];
   End;