sábado, 4 de junho de 2011

Exercicio 9 de Unidimensional

Program Pzim ;
{Elabore um algoritmo que dado dois vetores inteiros de 3 posições, leia estes vetores
(usando uma estrutura de repetição), calcule a expressão (vetor1 - vetor2 ), utilizando os
valores da mesma posição, armazenando em um terceiro vetor, também de números inteiros
de 3 posições. No final, imprima os números ímpares do terceiro vetor.}
var
v1, v2, v3:array[1..3] of integer;
i:integer;

 Begin
     for i:=1 to 3 do
         begin
             writeln('Digite o valor do primeiro vetor : ');
             readln(v1[i]);
         end;
     clrscr;
    {recebe os valores do primeiro vetor}
    
     for i:=1 to 3 do
         begin
             writeln('Digite o valor do segundo vetor : ');
             readln(v2[i]);
         end;
     clrscr;
     {recebe os valores do segundo vetor}
    
     for i:=1 to 3 do
         begin
             v3[i]:=(v1[i]-v2[i]);
         end;
     {atribui ao terceiro vetor, os valores da diferença do vetor 1 e vetor 2}
    
     for i:=1 to 3 do
         begin
             if (v3[i] mod 2 <> 0) then
                 begin
                     writeln(v3[i],' é numero impar');
                 end;
         end;
      {se o vetor 3, na posição [i] de 1 ate 3, for impar, exibe o valor, se for par, não faz nada}
 End.