Estou aprendendo lógica e estou utilizando o Pascal
fiz o seguinte exercício:
Informar 20 números, imprimir o maior e o menor....
mas não estou conseguindo checar se ele é o maior ou o menor...
Podem me ajudar?
Program Pzim ;
var
n,cont, maior, menor: integer;
Begin
cont := 0;
maior := 0;
menor := 0;
While cont < 20 do
begin
cont:= cont + 1;
writeln( 'Informe um número' ) ;
read(n) ;
end;
If cont = 1 then
begin
if n > maior then
maior := n;
if n < menor then
menor := n;
end;
Writeln ('O maior número é ',maior, ' o menor número é ', menor);
End.
fiz o seguinte exercício:
Informar 20 números, imprimir o maior e o menor....
mas não estou conseguindo checar se ele é o maior ou o menor...
Podem me ajudar?
Program Pzim ;
var
n,cont, maior, menor: integer;
Begin
cont := 0;
maior := 0;
menor := 0;
While cont < 20 do
begin
cont:= cont + 1;
writeln( 'Informe um número' ) ;
read(n) ;
end;
If cont = 1 then
begin
if n > maior then
maior := n;
if n < menor then
menor := n;
end;
Writeln ('O maior número é ',maior, ' o menor número é ', menor);
End.
Comment