Jump to content


tamoura

Member Since 01/12/2011
Offline Last Active 01/12/2011, 15:37
-----

Topics I've Started

Nome E Idade De 3 Pessoas

01/12/2011, 11:17

O enunciado é o seguinte:
Faça um algoritmo que receba o Nome e a Idade de 3 pessoas, e mostre o nome e a idade da pessoa com maior idade. Se a idade digitada for igual ao da idade digitada anteriormente, mantém-se a primeira idade digitada.

Tipo, a única coisa que consegui fazer foi mostrar a maior idade. Não sei como faz para colocar o nome da pessoa com a maior idade e nem a ultima parte do enunciado que fala pra manter a primeira idade digitada ...
Alguém ajuda? *-*

Aqui está o que fiz até agora:

Var
Nome: string;
Idade, contagem, maior: Integer;

begin
Contagem:=0;
Maior:=0;

Repeat
Contagem:= contagem + 1;
Writeln('Digite seu nome');
Readln(nome);
Writeln('Digite sua idade');
Readln(idade);
If idade > maior then
Begin
Maior:= Idade;
End;

Until Contagem = 3;
Writeln('A pessoa com a idade maior e: ', idade);
Readln;
end.


IPB Skin By Virteq