Question

Escreva um algoritmo que receba vários números e ao final imprima o maior número digitado. O algoritmo acaba quando se digita –9999

Answer 1

Algoritmo "algoritmo"

var
   numero : real
   anterior : real
   maior : real

inicio 
   
   numero <- 1
   anterior <- 0
   maior <- 0

  enquanto (numero <> -9999) faca

     leia(numero)

     se (numero > anterior ) entao 
        maior <- numero
     fimse

     anterior <- numero;

 fimenquanto

Escreval("Maior = ",maior)

fimalgoritmo