Exercicio PASCAL

[Kelhium 0]

Seguinte, depois de algum tempo no visualG resolvi trocar para o pascal, que é parecido mas diferente em algumas coisas, entao preciso de ajuda.

Estou usando o DEV-PASCAL 1.9.2 para fazer e compilar.

 

1 - Escrever um algoritmo que leia um conjunto de 50 informações contendo, cada uma delas, a altura e o sexo

de uma pessoa, calcule e mostre o seguinte:

a) a maior e a menor altura

B) a média de altura das mulheres

c) a quantidade de homens com mais de 1,75m de altura

 

Ainda sou novato, entao pode ter muita coisa errada mas até uma parte eu ja fiz, nao sei como guardar a maior e a menor altura?

program mioraltura;
var
    sexo:char;
    altura,cont1,media:real;
    i,cont:integer;
begin
   cont:=0;
   cont1:=0;
   media:=0;
   for i:= 1 to 2 do
  begin
   write('Escreva sua Altura: ');
   readln(altura);
   writeln;
   write('Escreva F: Feminino   ou   M: Masculino: ');
   read(sexo);
   writeln;
   if (sexo='m') and (altura>=1.75) then
   cont:=cont+1;
   if (sexo='f') then
   cont1:=cont1+1;
   media:=altura+media;
   media:=media/cont1;
  end;
   writeln('HOMENS COM MAIS DE 1.75: ',cont);
   writeln;
   writeln('MEDIA DE ALTURA DAS MULHERES: ',media:0:2);
   readln;
   readln;
end.

[Kelhium 0]

Dessa forma to conseguindo armazenar a maior altura, porem a menor fica 0. E agora nao sei q fiz, mas quando seleciono sexo M a tela fecha.

program mioraltura;
var
    sexo:char;
    altme,altma,altura,cont1,media:real;
    i,cont:integer;
begin
   altma:=0;
   altme:=0;
   cont:=0;
   cont1:=0;
   media:=0;
   for i:= 1 to 2 do
  begin
   write('Escreva sua Altura: ');
   readln(altura);
   writeln;
   write('Escreva F: Feminino   ou   M: Masculino: ');
   read(sexo);
   writeln;
   if (sexo='m') and (altura>=1.75) then
   cont:=cont+1;
   if (sexo='f') then
   cont1:=cont1+1;
   media:=altura+media;
   media:=media/cont1;
   if (altura<altme) then
   begin
   altme:=altura;
   end;
   if (altura>altma) then
   begin
   altma:=altura;
   end;
  end;
   writeln('HOMENS COM MAIS DE 1.75: ',cont);
   writeln;
   writeln('MEDIA DE ALTURA DAS MULHERES: ',media:0:2);
   writeln;
   writeln('MAIOR ALTURA: ',altma:0:2);
   writeln('MENOR ALTURA: ',altme:0:2);
   readln;
   readln;
end.

[quitZAUMMM 18]

com ctz a menor altura sempre ficara zero:

altme:=0

ninguem tera uma altura menor q 0.

 

oq da pra você fazer é ou fazer a primeira leitura fora do loop e as d+ dentro, ou entaum considerar a maior altura sendo 2,57m, kkkk e fazer assim:

altme:=2.57

[]s