algoritmo "menor maior"
var
MAIOR, MENOR, N, X:inteiro
inicio
Escreva ("Digite um valor:")
Leia(N)
SE (N < 0) então
SENAO
MAIOR <- N
MENOR <- N
ENQUANTO (N mod 2=0) Faça
Escreva ("Digite um Valor:")
Leia(N)
SE (N > MAIOR) então
MAIOR <-N
fimse
SE (N < MENOR) então
MENOR <-N
fimse
Fimenquanto
Escreval ("o maior e :",MAIOR)
Escreval ("o menor e :",MENOR)
fimalgoritmo
fimse
algoritmo "menor maior"
var
MAIOR, MENOR, N, X:inteiro
inicio
Escreva ("Digite um valor:")
Leia(N)
SE (N < 0)então
SENAO
MAIOR <- N
MENOR <- N
ENQUANTO (N mod 2=0) Faça
Escreva ("Digite um Valor:")
Leia(N)
SE (N > MAIOR) então
MAIOR <-N
fimse
SE (N < MENOR) então
MENOR <-N
fimse
Fimenquanto
Escreval ("o maior e :",MAIOR)
Escreval ("o menor e :",MENOR)
fimalgoritmo
fimse