Question

Um Algoritmo em Pascal, que receba a idade de três pessoas e mostre a média da idade entre elas.

Answer 1

var idade: integer;

cont: integer;

soma,media, maior, menor:real;

Begin { inicio do programa}

maior:=0;

menor:=999;

// LEITURA DAS IDADES

for cont:= 1 to 3 do

begin

repeat

writeln(' IINFORME ',cont,' a. IDADE:');

readln(idade);

if idade<0 then

begin

writeln(' IDADE INEXISTENTE. POR FAVOR COLOQUE UMA COERENTE:');

end;

until idade>0;

// soma das idades

soma:=soma+idade;

if maior<=idade then

begin // Maior

maior:= idade;

end;

if (menor>idade) then

begin // Menor

menor:=idade;

end;

end;

media:=soma/3; // MEDIA

begin

writeln(' maior:',maior);

writeln(' menor ',menor);

writeln(' soma: ',soma);

writeln(' media: ',media);

end;

End.