{Escreva um programa que leia 50 valores e encontre o maior e o menor
deles. Mostre o resultado.}
Program Exercicio_3;
Uses CRT;
Var
Cont, Valor, Maior, Menor: Integer;
Begin
Cont := 1;
Clrscr;
While Cont <= 50 Do
Begin
Writeln('Digite o ','Valor ', Cont);
Read(Valor);
If Cont = 1 Then
Begin
Maior := Valor;
Menor := Valor;
End;
If Valor > Maior Then
Maior := Valor;
If Valor <>
Menor := Valor;
Cont := Cont + 1;
End;
Writeln('O Maior Valor ‚: ', Maior);
Writeln('O Menor Valor ‚: ', Menor);
Readkey;
End.
Program Maiormenor ;
ResponderExcluirvar
id,maior,menor,cont:integer;
Begin
for cont:=1 to 5 do begin
writeln ('Informe a idade');
readln(id);
if cont=1 then begin
id:=maior;
id:=menor;
end;
if id>maior then
maior:=id;
if id<menor then
end;
writeln('Maior:',maior);
writeln('Menor:',menor);
End.
O meu tá igual o seu só que não está calculando o menor
Você inverteu alguns pontos
ResponderExcluirCorrigido
Program Maiormenor ;
var
idade,maior,menor,cont:integer;
Begin
for cont:=1 to 5 do
begin
writeln ('Informe a idade');
readln(idade);
if cont=1 then
begin
maior:=idade;
menor:=idade;
end;
if idade > maior then
begin
maior:=idade;
end;
if idade < menor then
begin
menor:=idade;
end;
end;
writeln('Maior:',maior);
writeln('Menor:',menor);
End.