Esta aqui o Algoritmo completo com todas as verificações (do jeito que você informou) feito no Visualg: Teste e veja o resultado. ====================================================== algoritmo "MaiorMenorValor"
// Função : Descobrir o maior e o menor valor de um conjunto de numeros inteiros
// Autor : ENOCK GOMES NETO
// Data : 05/03/2011
// Seção de Declarações
var
menor, maior, i: inteiro
numeros: vetor[0..100] de inteiro
inicio
escreval("Digite os Valores (Para PARAR Digite -1)")
escreval
leia (numeros[0])
se (numeros[0] >= 0) então
menor <- numeros[0]
maior <- numeros[0]
senao
se (numeros[0] = -1) então
interrompa
escreval
escreval("O MENOR numero e", menor)
escreval("O MAIOR numero e", maior)
fimalgoritmo
senao
enquanto (numeros[0] < 0) faca
escreval
escreval ("Digite um Numero Inteiro Positivo")
escreval
leia (numeros[0])
se (numeros[0] = -1) então
escreval
escreval("O MENOR numero e", menor)
escreval("O MAIOR numero e", maior)
fimalgoritmo
fimse
fimenquanto
menor <- numeros[0]
maior <- numeros[0]
fimse
fimse
para i de 1 ate 99 faca
leia (numeros[i])
se (numeros[i] < 0 ) então
se (numeros[i] = -1) então
interrompa
senao
enquanto (numeros[i] < 0) faca
escreval
escreval ("Digite um Numero Inteiro Positivo")
escreval
leia (numeros[i])
se (numeros[i] = -1) então
escreval
escreval("O MENOR numero e", menor)
escreval("O MAIOR numero e", maior)
fimalgoritmo
fimse
fimenquanto
fimse
senao
se (menor > numeros[i]) então
menor <- numeros[i]
fimse
se (maior < numeros[i]) então
maior <- numeros[i]
fimse
fimse
fimpara
escreval
escreval("O MENOR numero e", menor)
escreval("O MAIOR numero e", maior)
fimalgoritmo ====================================================== Espero que tenha ajudado. Atenciosamente, Enock Gomes Neto