Algoritmo "Obter notas e apresentar em ordem crescente"
Var
aNotas: VETOR[1..50] DE INTEIRO
I, J, Y, L, K, nNumero: INTEIRO
Inicio
Escreva("Digite o número de notas que você deseja ordenar: ")
Leia(nNumero)
Para I De 1 Ate nNumero Passo 1 Faca
Escreva("Digite a", I,"° nota: ")
Leia(aNotas[I])
Fimpara
Para K De 1 Ate I-1 Faca
Para J De 1 Ate nNumero Faca
Se aNotas[J] > aNotas[J+1] Entao
Y <- aNotas[J]
aNotas[J] <- aNotas[J+1]
aNotas[J+1] <- Y
Fimse
Fimpara
Fimpara
Para L De 1 Ate J Faca
Escreval(aNotas[L])
Fimpara
Fimalgoritmo
Olá pessoal,
Eu preciso fazer um algoritmo no VisualG que leia um determinado número de notas e as organize-as de forma crescente, eu consegui elaborar o algoritmo, mais, no resultado ele aparece um 0, sendo que eu não digitei nenhum 0.
Exemplo:
Digitei: 9
10
2
No resultado aparece: 0
2
9
10
O algoritmo está acima, obrigado.