Lista 04 - UFMG

program l4p19b;
var
C, CODSEXO, NMULHER: integer;
ALTURA, MAIOR, MENOR: real;
VETALT,VETSEX: array [1..50] of real;
SOMAMULHER, MEDIAMULHER: real;
SOMATURMA, MEDIATURMA: real;
begin
for C := 1 to 50 do
begin
write('Altura: ');
readLn(ALTURA);
write('Sexo (1=M/2=F): ');
readLn(CODSEXO);
VETALT[C] := ALTURA;
VETSEX[C] := CODSEXO;
end;
NMULHER := 0;
SOMAMULHER := 0;
SOMATURMA := 0;
MAIOR := VETALT[1];
MENOR := VETALT[1];
for C := 1 to 50 do
begin
if ( VETALT[C] > MAIOR ) then
MAIOR := VETALT[C]
else
if ( VETALT[C] < MENOR ) then
MENOR := VETALT[C];
if ( VETSEX[C] = 2 ) then begin
NMULHER := NMULHER + 1;
SOMAMULHER := SOMAMULHER + VETALT[C]; end;
SOMATURMA := SOMATURMA + VETALT[C];
end;
MEDIAMULHER := SOMAMULHER / NMULHER;
MEDIATURMA := SOMATURMA / 50;
writeln('Maior altura da turma: ',MAIOR);
writeln('Menor altura da turma: ',MENOR);
writeLn('Mulheres com altura acima da media das mulheres');
for C := 1 to 50 do
if ( VETSEX[C] = 2 ) and ( VETALT[C] > MEDIAMULHER ) then
write(VETALT[C],' ');
writeLn('');
writeLn('Pessoas com altura abaixo da media');
for C := 1 to 50 do
if ( VETALT[C] < MEDIATURMA ) then
write(VETALT[C],' ');
writeLn('');
end.
UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 24