algoritmo "Nota de cada aluno normalizada"
var
nomes: vetor [1..60] de literal
notas: vetor [1..60] de real
notaMaxima, notaNormalizada: real
i, k: inteiro
inicio
i <- 1
repita
escreva("Digite o nome do aluno: ")
leia (nomes[i])
se (nomes[i] <> "") entao
repita
escreva ("Digite a nota do aluno: ")
leia ( notas[i])
ate ((notas[i] >=0) e (notas[i] <= 10))
i <- i+1
fimse
ate ((i >= 60) ou (nomes[i] = ""))
k <- i
notaMaxima <- notas[1]
para i de 2 ate k faca
se (notas[i] > notaMaxima) entao
notaMaxima <- notas[i]
fimse
fimpara
escreval (" Abaixo a listagem dos nomes e das notas normalizadas: ")
para i de 1 ate k faca
notaNormalizada <- notas[i] * (10/notaMaxima)
escreval (nomes[i], " - ", notaNormalizada)
fimpara
fimalgoritmo
Nenhum comentário:
Postar um comentário