20160420_8_maxmin3.alg

algoritmo "20160420_8_maxmin1"
// Função :
// Autor :
// Data : 21/04/2016
// Seção de Declarações 
var
   ma, me, a, b:inteiro
inicio
// Seção de Comandos
   escreval("Digita numeros.")
   leia(a)
   ma <- a
   me <- a
   se (a>0) entao
   b <- -100
      para b de b ate 0 passo 1 faca
         se (a<0) entao
            b <- 1
         senao
            leia(a)
            se (a>ma) entao
               ma <- a
            fimse
            se (a<me) entao
               me <- a
            fimse
            b <- -100
         fimse
      fimpara
   fimse
   escreval("Maior número: ",ma:1)
   escreval("Menor número: ",me:1)
fimalgoritmo