Fazer um programa que leia 20 nomes com suas respectivas idades e sexo

Mariojorge14 · 8 de junho de 2013

Fazer um programa que leia 20 nomes com suas respectivas idades e sexo. Escreva:

a) - A soma da idade da mulher de menor nome e o homem de maior nome.

- Escreva a média das idades das mulheres que tem mais de uma letra “e” no nome.

c) - O maior nome informado.

d) - A média das idades dos nomes que tenha o número de caracteres ímpares.

program Exmp2;
uses crt;
var
sexx,nome,letra:string;
idad,I,II,nomme,idade1,idadeimpar:integer;
sex:char;
cont,contimpar,mulherm,contF,homemM,contM,nomeM:integer;
som,media,mediaimpar:real;

begin

mulherm:= 800;
homemM:= - 800;
nomeM:=0;

     for I:= 1 to 20 do
     begin
          writeln ('Digite seu Nome');
          readln (nome);

          nomme:= length (nome);

          writeln ('Digite sua Idade');
          readln (idad);

          writeln ('Agora digire o seu sexo: F - Feminino, M - Masculino');
          readln (sex);
          sexx:=(upcase (sex));


          if (sexx = 'F' ) and (nomme < mulherm) then
          begin
               contF:= idad+0;
          end;

          if (sexx = 'M' ) and (nomme > homemM) then
          begin
               contM:= idad+0;
          end;

          som := contF+contM;

          if (sexx = 'F') then
          begin


          for I:= 1 to nomme do
          begin
          letra:= copy (nome,I,1);

                  if (upcase (letra) = 'E') and (sexx = 'F') then
                  begin

                  cont:=cont+1;
                               if (cont = 2) then
                               begin
                                    idade1:=idad+0;
                                    media:=idade1/cont;
                               end;
                  end;
           end;


                  if (nomeM<nomme) then
                  begin
                       nomeM:=nomme;
                  end;

                  if (nomme mod 2 <> 0 ) then
                  begin
                       idadeimpar:=idad+0;
                       contimpar:=contimpar+1;
                       mediaimpar:= idadeimpar/contimpar;

                  end;

end;
end;

                  writeln ('A soma da idade da Mulher de menor nome e o homem de maior nome e:',som);
                  writeln ('A media das idades das mulheres que tem mais de uma letra E no nome e:',media);
                  writeln ('O maior nome informado e:',nomeM);
                  writeln ('A media das idades dos nomes que tenha o numero de caracteres impars e:',mediaimpar);
                  readkey;
end.