Program Pzim ;
{Elabore um algoritmo que dado três vetores reais de 5 posições, leia estes vetores (usando
uma estrutura de repetição), calcule a expressão ((vetor1 * vetor3) / vetor2 ), utilizando os
valores da mesma posição, armazenando em um quarto vetor, também de números reais de
5 posições. No final, imprima os números do quarto vetor, com três casas decimais.}
var
v1, v2, v3, v4:array[1..5] of real;
i:integer;
Begin
{inicio do programa}
for i:=1 to 5 do
begin
writeln('Digite o ',i,'o. valor do primeiro vetor : ');
readln(v1[i]);
end;
clrscr; {limpa a tela}
{entrada dos valores do primeiro vetor}
for i:=1 to 5 do
begin
writeln('Digite o ',i,'o. valor do segundo vetor : ');
readln(v2[i]);
end;
clrscr;{limpa a tela}
{entrada dos valores do segundo vetor}
for i:=1 to 5 do
begin
writeln('Digite o ',i,'o. valor do terceiro vetor : ');
readln(v3[i]);
end;
clrscr; {limpa a tela}
{entrada dos valores do terceiro vetor}
for i:=1 to 5 do
begin
v4[i]:=((v1[i] * v3[i]) / v2[i] );
end;
{efetua a operação solicitada e atribui ao vetor 4, nas posições [i] de 1 ate 5}
for i:=1 to 5 do
begin
writeln('O valor da posição ',i, ' do vetor 4 é: ',v4[i]:1:3);
end;
{exibe o resultado do vetor 4 com 3 decimais}
End.
