Exercício 5-6 Escreva algoritmo que leia os nomes e conceitos dos alunos de uma turma de tamanho máximo 60. O algoritmo deverá, para todos os alunos lidos, colocar em uma matriz o nome do aluno na primeira coluna e sua situação na segunda coluna: “aprovado”, se o conceito do aluno for superior a 0; “reprovado” caso contrário. Os conceitos vão de 0 a 4, estando reprovados os alunos cujo conceito é o 0. O algoritmo pára de ler quando o nome informado for “fim” ou tenham sido lidos o nome e o conceito de 60 alunos tamanho máximo da turma).

algoritmo "nomes e conceitos dos alunos"

var

   matriz:vetor[1..2,1..60] de literal

   vetconceito:vetor[1..60] de inteiro

   i,k:inteiro

inicio

      i<-0

      k<-0

      repita

            i<-i+1

            escreval("Digite o nome do",i,"º Aluno")

            leia(matriz[1,i])

         se (matriz[1,i]<>"fim") entao

            repita

            escreval("Digite o conceito do",i,"º Aluno")

            leia(vetconceito[i])

            ate ((vetconceito[i]>=0) e (vetconceito[i]<4))

            k<-k+1

         fimse

      ate ((i>=60) ou (matriz[1,i]="fim"))

      i<-0

      repita

            i<-i+1

            se (vetconceito[i]=0) entao

               matriz[2,i]<-"Reprovado"

            senao

                 matriz[2,i]<-"Aprovado"

            fimse

      ate ((i>=60) ou (i>=k))

      escreval("************  RESULTADO  ***********")

      escreval

      para i de 1 ate 60 faca

           se ((matriz[1,i]<>"")e(matriz[1,i]<>"fim"))entao

              escreval(matriz[1,i]," -- ",matriz[2,i])

           fimse

      fimpara   

fimalgoritmo