tenho o seguinte código pascal e queria que no fim indicasse a maior e a menor idade mas não sei o que se passa pois ele não indica valores certos diz-me sempre o ultimo introduzido, agradecia se me pudessem ajudar.
program teste5;
uses
crt;
var
salario,x, i, salario2, idade_maior, idade_menor: Integer;
nota: array[1..3] of integer;
sexo: char;
begin
textcolor(0);
textbackground(15);
for x:= 1 to 3 do
begin
clrscr;
writeln ('Introduza o seu g‚nero: "m" para masculino "f" para feminino');
readln (sexo);
writeln ('Introduza a sua idade: ');
read(nota);
for i:= 1 to 3 do
idade_maior:= nota;
for i:= 2 to 3 do
if nota>idade_maior then
idade_maior:= nota;
for i:= 1 to 3 do
idade_menor:= nota;
for i:= 2 to 3 do
if nota
idade_menor:= nota;
writeln ('Introduza a seu salario: ');
readln (salario);
salario2:=salario2+salario;
end;
clrscr;
writeln('');
writeln ('A m‚dia dos sal rios do grupo ‚: ',salario2/3:2:2, ' Õ .');
writeln('A Menor idade ‚: ',idade_menor);
writeln ('A Maior idade ‚: ', idade_maior);
readkey;
end.
Mariooliveir...
Novo Membro
Registrado
25 Mensagens
0 Curtidas