Algoritmo "Exercício 12.2"

Algoritmo "Exercício 12.2"

Var max, i, mem, n:inteiro
   // Seção de Declarações das variáveis
Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   escreva("Introduza o total de termos a comparar: ")
   leia(max)
   para i de 1 ate max faca
      escreva("Introduza o ", i,"º número: ")
      leia(n)
      se i=1 entao
         mem<-n
      senao
         se n>mem entao
            mem<-n
         fimse
      fimse
      escreval("O valor mais alto é o ", mem)
   fimpara
Fimalgoritmo