Nesecito ayuda con un programa:resulta que se me pide hacer un programa en el cual debo ingresar el nombre, edad y sexo de los alumnos de un curso, y el programa debe entregarme: cantidad de mujeres, cantidad de hombres, edad promedio de mujeres, y edad promedio de varones. Al ingresar el sexo tengo que digitar una letra (F) para femenino y (M) para masculino. La duda la tengo en que como hago para que me diferencie las edades por sexo. Aqui va el codigo:
program curso;
uses
wincrt;
var
nom:string [20];
edad:real;
cant1,cant2,prom1,prom2,sum1,sum2:real;
resp,sexo,m,f:char;
begin
resp:='s';
cant1:=0;
cant2:=0;
sum1:=0;
sum2:=0;
while(resp='s')or(resp='S')do
begin
writeln('INGRESE EL NOMBRE DEL ALUMNO:');
readln(nom);
writeln('EDAD DEL ALUMNO:');
readln(edad);
writeln('INGRESE EL SEXO DEL ALUMNO:');
readln(sexo);
writeln('¿ DESEA SEGUIR INGRESANDO MAS DATOS? (S/N)');
readln(resp);
cant1:=cant1+1;
sum1:=sum1+edad;
cant2:=cant2+1;
sum2:=sum2+edad;
end;
if sexo='m' then
begin
prom1:=sum1/cant1;
writeln('LA CANTIDAD DE ALUMNOS INGRESADOS ES:',cant1:3:1);
writeln('LA EDAD PROMEDIO DE ALUMNOS INGRESADOS ES:',prom1:3:1);
end
else
begin
prom2:=sum2/cant2;
writeln('LA CANTIDAD DE ALUMNAS INGRESADOS ES:',cant2:3:1);
writeln('LA EDAD PROMEDIO DE ALUMNAS INGRESADOS ES:',prom2:3:1);
end;
end.
