var
cont, notaacima : inteiro
nota : vetor[1..5] de real
media : real
inicio
para cont de 1 ate 5 faca
Escreval("Digite a ", cont, "ª nota: ")
leia(nota[cont])
media <- media + nota[cont]
fimpara
media <- media / 5
para cont de 1 ate 5 faca
se (nota[cont] > media) entao
notaacima <- notaacima+1
fimse
fimpara
Escreval("A média da turma é: ", media)
Escreval(notaacima, " alunos tiraram nota acima da média.")
dgt's Content
There have been 1 items by dgt (Search limited from 17/04/2023)
#996453 Exercicio
Posted by
on 14/03/2010, 16:36
in
Teoria de Programação
Não sei se você já chegou nesse assunto, mas isso se resolve com vetor.
