Squid's

Bom eu faria assim! var cont,idade:integer; sexo:char; maioraltura,maispesada,peso,altura,mediatotal:real; nome:string; begin cont:=0; maioraltura:=0; maispesada:=0; while sexo <> '0' do begin write('Digite seu sexo, 1 p/ masculino e 2 p/ feminino, ou 0 p/ sair: '); readln(sexo); if (sexo = '1') or (sexo = '2') then begin cont:=cont+1; write('Digite seu nome: '); readln(nome); write('Digite sua idade: '); readln(idade); write('Digite seu peso: '); readln(peso); write('Digite sua altura: '); readln(altura); mediatotal:=mediatotal + idade; if sexo = 1 then if maioraltura < altura then maioraltura:= altura; else if maispesada < peso then maispesada:= peso; end; end; writeln('A maior altura entre o homens foi de ',maioraltura); writeln('A mais pesada entre as mulheres foi de ',maispesada); writeln('A media de idade foi de ',mediatotal / cont); end.

Olá pessoal, Bom no momento estou cursando Sistemas para Internet, 2º período e gosto bastante de programação. Atualmente estou aprendendo as linguagens C/C++, espero poder ajudar aos membros do fórum e poder tirar dúvidas com vocês. Att,