exercicio de logica

[EdnaAparecida 0]

1) Foi feita uma pesquisa entre os habitantes de uma região. Foram coletados os

dados de idade,sexo (M/F) e salário. Faça um algoritmo que informa:

a) A média de salário do grupo

B) Maior e menor idade do grupo

c) Quantidade de mulheres com salário até R$ 100,00

d) Quantidade de homens

 

 

Estou com dificuldade porque quando pede sexo por exemplo

digito F ele pede o salario feminino e masculino e se for ao contrario o mesmo,

também não sei se as somas estão corretas salario + cont, tanto de um como de

outro,Segue abaixo:

 

Aguardando respostas agradeço desde já.

program habitantes;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
n,cont,idade_maior,idade_menor,idade,sexo_f,sexo_m:integer;
quant_sal_feminino,soma_salario,salario_f,salario_m,media_sal:real;
sexo:string;
begin
writeln ('Informe a quantidade de pessoas que voce pesquisou');
readln(n);
cont:=0;
Idade:=0;
salario_f:=0;
salario_m:=0;
repeat

begin
writeln('digite idade:');
readln(idade);

if cont=0 then
begin
idade_menor:=idade;
idade_maior:=idade;
end
else
if idade < idade_menor then

begin
idade_menor:=idade;
end
else if idade > idade_maior then
begin
idade_maior:=idade;
end;
end;

writeln('Digite qual sexo');
readln(sexo);
if sexo='f' then

begin
sexo_f:=sexo_f + cont;
end;
begin
writeln('Escreva o salario do sexo feminino');
readln(salario_f);
begin
salario_f:= salario_f + cont;
end;
if salario_f <= 100 then
begin
quant_sal_feminino:=salario_f;
end

else if sexo='m' then
begin
sexo_m:=sexo_m + cont;
end;
begin
writeln('Escreva o salario do sexo masculino');
readln(salario_m);
begin
salario_m:=salario_m + cont;
end;
begin
soma_salario:= salario_f + salario_m;
media_sal:= soma_salario/n;
end;

end;
end;
cont:=cont+1;
until cont=n;


begin
writeln('a quantidade de salario ate 100:', quant_sal_feminino:2:2);
writeln('a menor idade e:',idade_menor);
writeln('a maior idade e:',idade_maior);
writeln ('a quantidade de homens e:', sexo_m);
writeln ('A media dos salarios e: ',media_sal:2:2);
writeln ('A soma dos salarios e: ',soma_salario:2:2);
writeln ('tecle enter');
readln;
end;



end.

[quitZAUMMM 18]

Amigo não tenho muito conhecimento sobre pascal, e se você fizer usando case?

e por favor idente esses códigos ai, fica horrivel ver assim;

 

[]s