Algoritmo "07_04 Média6"
// Melhora algoritmo anterior, possibilitando indicar quantidade
// de alunos da classe
Var
     nota1, nota2, media: real
     Qtd, num_alunos: inteiro
Inicio
     Escreva ("Digite a quantidade de alunos da classe: ")
     Leia(qtd)
     Para num_alunos de 1 até qtd passo 1 faça
          Escreva ("Digite a nota do primeiro semestre: ")
          Leia (nota1)
          Escreva ("Digite a nota do segundo semestre: ")
          Leia (nota2)
          media <- (nota1 + nota2)/2
          Escreval ("A média é: ",media)
          Se media >= 5 então
             Escreva ("Aluno aprovado.")
          Senão
             Escreva ("Aluno reprovado.")
          Fimse
     Fimpara
FimAlgoritmo
