You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
program l4p19;<br />
var<br />
C, CODSEXO, NMULHER: integer;<br />
ALTURA, MAIOR, MENOR: real;<br />
VETALT,VETSEX: array [1..50] of real;<br />
SOMAMULHER, MEDIAMULHER: real;<br />
SOMATURMA, MEDIATURMA: real;<br />
begin<br />
for C := 1 to 50 do<br />
begin<br />
write('Altura: ');<br />
readLn(ALTURA);<br />
write('Sexo (1=M/2=F): ');<br />
readLn(CODSEXO);<br />
VETALT[C] := ALTURA;<br />
VETSEX[C] := CODSEXO;<br />
end;<br />
NMULHER := 0;<br />
SOMAMULHER := 0;<br />
SOMATURMA := 0;<br />
MAIOR := VETALT[1];<br />
MENOR := VETALT[1];<br />
for C := 1 to 50 do<br />
begin<br />
if ( VETALT[C] > MAIOR ) then<br />
MAIOR := VETALT[C]<br />
else<br />
if ( VETALT[C] < MENOR ) then<br />
MENOR := VETALT[C];<br />
if ( VETSEX[C] = 2 ) then begin<br />
NMULHER := NMULHER + 1;<br />
SOMAMULHER := SOMAMULHER + VETALT[C]; end;<br />
SOMATURMA := SOMATURMA + VETALT[C];<br />
end;<br />
MEDIAMULHER := SOMAMULHER / NMULHER;<br />
MEDIATURMA := SOMATURMA / 50;<br />
writeln('Maior altura da turma: ',MAIOR);<br />
writeln('Menor altura da turma: ',MENOR);<br />
writeLn('Mulheres com altura acima da media das mulheres');<br />
for C := 1 to 50 do<br />
if ( VETSEX[C] = 2 ) and ( VETALT[C] > MEDIAMULHER ) then<br />
write(VETALT[C],' ');<br />
writeLn('');<br />
writeLn('Pessoas com altura abaixo da media');<br />
for C := 1 to 50 do<br />
if ( VETALT[C] < MEDIATURMA ) then<br />
write(VETALT[C],' ');<br />
writeLn('');<br />
end.<br />
<strong>UFMG</strong> – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 23