exercícios resolvidos algoritmo

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "AlunosAprovadoseReprovadosVetor"
var
 alunos: vetor[1..90] de caracter
 notas: vetor[1..90] de real
 qtde,contador:inteiro
 media,soma:real
inicio
 escreval ("Informe qts alunos tem na sala:")
 leia(qtde)
 se (qtde < 1) ou (qtde > 90) entao
 escreval ("Informe um valor de 1 a 90")
 senao
 para contador de 1 ate qtde passo 1 faca
 escreval ("Informe nome:")
 leia (alunos[contador])
 escreval ("Informe a nota:")
 leia (notas [contador])
 fimpara
 // media
 para contador de 1 ate qtde passo 1 faca
 soma <- soma + notas [contador]
 fimpara
 media <- soma/qtde
 limpatela
 escreval ("A media :", media)
 //listar nome e notas
 escreval ()
 escreval ("Lista de notas dos alunos")
 para contador de 1 ate qtde passo 1 faca
 escreval ("nome :", alunos [contador])
 escreval ("nota :", notas [contador])
 fimpara
 // lista de alunos aprovados
 Para contador de 1 ate qtde passo 1 faca
 se (notas [contador] >= 6) entao
 escreval ()
 escreval ("Aprovado!")
 escreval ("nome :", alunos [contador])
 escreval("nota :", notas [contador])
 fimse
 fimpara
 Para contador de 1 ate qtde passo 1 faca
 se (notas [contador] < 6) entao
 escreval ()
 escreval ("Reprovado!")
 escreval ("nome :", alunos [contador])
 escreval("nota :", notas [contador])
 fimse
 fimpara
 fimse
fimalgoritmo