Program Pzim ;
{Elabore um algoritmo que leia os vetores A e B de números reais de 4 posições (usando uma
estrutura de repetição), calcule a média ponderada. Armazene a média em um terceiro vetor
e, no final, imprima, na ordem inversa, este terceiro vetor, com duas casas decimais.
Fórmula: MEDIA = (A[?] * 4 + B[?] * 6) / 10.}
var
a, b, media:array[1..40] of real;
i:integer;
Begin
{inicio do programa}
for i:=1 to 4 do
begin
writeln('Digite o ',i,'o. do primeiro vetor : ');
readln(a[i]);
end;
clrscr;
{recebe os valores do primeiro vetor}
for i:=1 to 4 do
begin
writeln('Digite o ',i,'o. do segundo vetor: ');
readln(b[i]);
end;
clrscr;
{recebe os valores do segundo vetor}
for i:=1 to 4 do
begin
media[i]:=(((a[i]*4) + ( b[i] *6))/10);
end;
{calcula a media ponderada e atribui ao vetor media, nas posições [i] de 1 ate 4}
for i:=4 downto 1 do
begin
writeln('os valores da media é : ',media[i]:1:2);
end;
{exibe os valores do vetor media em sentido contrario, do 4 até o 1, com duas casas decimais}
End.
