Algoritmo “maiormenorsernegativo”
var
maior, n, menor:inteiro
inicio
repita
escreval(“escreva um número, de preferencia números diferentes”)
leia(n)
se (n>maior) então
maior<- n
se (menor>n) então
menor <- n
fimse
fimse
ate (n < 0)
escreval ("O maior número digitado foi " ,maior, " menor número " ,menor)
fimalgoritmo
O FINAL SEMPRE DA 0