L7 - 6 - Escreva algoritmo que leia os nomes e conceitos dos alunos de uma turma de tamanho máximo 60.

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 "exercicio6"
Var
     nome: vetor [1..60] de literal
     conceito: vetor [1..60] de real
     mat: vetor [1..60,1..3] de literal
     i: inteiro
Inicio
     i <- 1
     Repita
          Escreva("Informe o Nome ",i, " : ")
          Leia(nome[i])
          Se(nome<>"fim")entao 
               mat[i,1] <- nome[i]
               Escreva("Conceito (0-4): ")
               Leia(conceito[i])
               Enquanto (conceito[i] < 0) ou (conceito[i] > 4) FACA
                    Escreval("O conceito deve estar entre 0 e 4.")
                    Escreva("Conceito (0-4): ")
                    Leia(conceito[i]) 
               Fimenquanto
               mat[i,2] <- conceito[i]
               Se(conceito[i]>0)entao
                    mat[i,3] <- "Aprovado"
               Senao
                    mat[i,3] <- "Reprovado"
               Fimse
          Fimse
          i <- i + 1
          Ate(nome[i]= "fim") ou (i > 60)
Fimalgoritmo