Program Pzim ;
{Foi realizada uma pesquisa entre 20 habitantes de uma cidade. De cada habitante foram
coletados os dados: idade, sexo, renda familiar e número de filhos. Faça um programa que
leia esses dados, armazenando-os em um vetor. Calcule e mostre a média de salário entre
habitantes, a menor e a maior idade do grupo e a quantidade de mulheres com mais de
dois filhos}
type
r_habitante = record
idade:integer;
sexo:char;
salario:real;
nfilhos:integer;
end;
var
v_habitante:array[1..4] of r_habitante;
salmedio, somasal:real;
maiorid, menorid, qtdm2f, i:integer;
Begin
somasal:=0;
qtdm2f:=0;
for i:=1 to 4 do
begin
writeln('Digite a idade : ');
readln(v_habitante[i].idade); //variavel habitante, na posição [i]. idade
writeln('Digite o sexo : ');
readln(v_habitante[i].sexo); //variavel habitante, na posição [i]. sexo
writeln('Digite o valor do Salário : ');
readln(v_habitante[i].salario); //variavel habitante, na posição [i]. salario
writeln('Digite a quantidade de filhos : ');
readln(v_habitante[i].nfilhos); //variavel habitante, na posição [i]. numero de filhos
clrscr; // limpa a tela
end;
for i:=1 to 4 do
begin
if (i=1) then
begin
maiorid:=v_habitante[1].idade;
menorid:=v_habitante[1].idade;
end;
end;
{atribui as variaveis maior idade e menor idade o valor que existe na variavel habitante, na posição [i]=1. idade}
for i:=1 to 4 do
begin
if (v_habitante[i].idade>maiorid) then
begin
maiorid:=v_habitante[i].idade;
end;
if (v_habitante[i].idade<menorid) then
begin
menorid:=v_habitante[i].idade;
end;
if ((v_habitante[i].sexo = 'm') or (v_habitante[i].sexo = 'M') and (v_habitante[i].nfilhos>2)) then
begin
qtdm2f:=qtdm2f+1
end;
somasal:=somasal+v_habitante[i].salario;
end;
writeln('A média de salário é: ', somasal/4);
writeln('A menor idade é: ', menorid);
writeln('A maior idade é: ', maiorid);
writeln('A quantidade de mulheres com mais de dois filhos é : ', qtdm2f);
End.
