Não consegui esse algoritmo. Alguém se habilita?

[phcosta06]

Faça um programa que receba a idade e o peso de 15 pessoas. Calcule e mostre a média dos pesos das pessoas da mesma faixa etária. As faixas etárias são:

de 1 a 10 anos;

de 11 a 20 anos;

de 21 a 30 anos;

acima de 31 anos.

Em pascal. Alguém se habilita??

Eu não consegui, por favor me ajudem.

Obrigado.

[Mauricio Quereguine]

E ai 'phcosta06'.

Me chamo Mauricio Quereguine, e acho q tenho a resposta para seu problema...

dá uma olhada nesse código q eu fiz, se não for o q você precisa, com certeza dá pra você chegar onde você quer..

[========================================================================]

program cadastros;

uses crt;

const num = 3; {aqui você põe o numero de pessoas}

var

cadastro : array [1..num] of record

nome : string;

idade : integer;

peso : real;

end;

x,y : integer;

Begin

clrscr;

{entrada de dados}

for x := 1 to num do

begin

write('Digite um nome : ');

readln(cadastro[x].nome);

write('Digite a idade : ');

readln(cadastro[x].idade);

write('Digite O peso : ');

readln(cadastro[x].peso);

end;

writeln;

writeln('Classificação :');

writeln('De 1 a 10 anos : ');

{de 1 a 10}

for x := 1 to num do

begin

if (cadastro[x].idade >= 1) and (cadastro[x].idade <= 10) then

begin

write('Nome : ',cadastro[x].nome);

write(' Idade : ',cadastro[x].idade);

writeln(' Peso : ',cadastro[x].peso:5:2);

end;

end;

writeln('De 11 a 20 anos : ');

{de 11 a 20}

for x := 1 to num do

begin

if (cadastro[x].idade >= 11) and (cadastro[x].idade <= 20) then

begin

write('Nome : ',cadastro[x].nome);

write(' Idade : ',cadastro[x].idade);

writeln(' Peso : ',cadastro[x].peso:5:2);

end;

end;

writeln('De 21 a 30 anos : ');

{de 21 a 30}

for x := 1 to num do

begin

if (cadastro[x].idade >= 21) and (cadastro[x].idade <= 30) then

begin

write('Nome : ',cadastro[x].nome);

write(' Idade : ',cadastro[x].idade);

writeln(' Peso : ',cadastro[x].peso:5:2);

end;

end;

writeln('Acima de 30 anos : ');

{de 31 acima}

for x := 1 to num do

begin

if (cadastro[x].idade >= 30) then

begin

write('Nome : ',cadastro[x].nome);

write(' Idade : ',cadastro[x].idade);

writeln(' Peso : ',cadastro[x].peso:5:2);

end;

end;

readkey;

End.

[========================================================================]

Bom, tá ai.....espero q ajude.

t+

Editado Julho 13, 2008 por Mauricio Quereguine