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.
