Algoritmo "calcula_notas"
Var
   n, i : INTEIRO
   menor_nota, maior_nota, nota_i: REAL
   aluno_menor_nota, aluno_maior_nota, aluno_i: CARACTERE
Inicio
   ESCREVAL("Digite a quantidade de alunos ")
   LEIA(n)
   ESCREVAL("Digite o nome do aluno ")
   LEIA(aluno_i)
   ESCREVAL("Digite a nota do aluno ")
   LEIA(nota_i)
   aluno_maior_nota := aluno_i
   aluno_menor_nota := aluno_i
   maior_nota := nota_i
   menor_nota := nota_i
   i := 1
   ENQUANTO (i < n) FACA
      i := i + 1
      ESCREVAL("Digite o nome do aluno ")
      LEIA(aluno_i)
      ESCREVAL("Digite a nota do aluno ")
      LEIA(nota_i)
      SE (nota_i < menor_nota) ENTAO
         aluno_menor_nota := aluno_i
         menor_nota := nota_i
      SENAO
       SE ((nota_i = menor_nota) E (aluno_i < aluno_menor_nota)) ENTAO
          aluno_menor_nota := aluno_i
          menor_nota := nota_i
       FIMSE
      FIMSE
      SE (nota_i > maior_nota) ENTAO
         aluno_maior_nota := aluno_i
         maior_nota := nota_i
      SENAO
       SE ((nota_i = maior_nota) E (aluno_i < aluno_maior_nota)) ENTAO
          aluno_maior_nota := aluno_i
          maior_nota := nota_i
       FIMSE
      FIMSE
   FIMENQUANTO
   ESCREVAL("Aluno com menor nota: ", aluno_menor_nota)
   ESCREVAL("Aluno com maior nota: ", aluno_maior_nota)
Fimalgoritmo