14. Tem-se um conjunto de dados contendo a altura e o sexo (masculino, feminino) de 50 pessoas. Fazer um algoritmo que calcule e escreva:
A maior e a menor altura do grupo;
A média de altura das mulheres;
O número de homens;
A porcentagem de homens e de mulheres.
EU FIZ AQUI SO QUE NÃO TA DANDO CERTO
rogram programa;
var
i, qtd_homens, qtd_mulheres, menor, maior, soma_alt_m,altura
: integer;
sexo: char;
begin
qtd_homens :=0 ;
qtd_mulheres :=0;
soma_alt_m:= 0 ;
for i:= 1 to 5 do
read (sexo) ;
read (altura);
if (sexo = 'M') then
qtd_homens :=qtd_homens +1
else
qtd_mulheres := qtd_mulheres + 1 ;
soma_alt_m :=soma_alt_m + altura ;
if( i = 1) then
maior := altura ;
menor := altura ;
if (menor > altura) then
menor := altura ;
if (maior < altura) then
maior := altura ;
writeln ('Menor: ', menor);
writeln ('Maior: ', maior) ;
writeln ('Altura média das mulheres: ', soma_alt_m/ qtd_mulheres) ;
writeln ('Quantidade de homens: ', qtd_homens) ;
writeln ('Quantidade de mulheres: ', qtd_mulheres)
end.
ALGUÉM PODE ME AJUDAR?