Kepler Piaggi

@Simon Viegas entendi, valor corrigido. Obrigado

@Simon Viegas entendi a questão do valor da media2, mudei para -1, muito obrigado pela dica. Em relação a indentação, corrigi. Fiz melhorias no programa, tudo funcionando certinho, de uma olhada como ficou: algoritmo "melhoralunodasala" var aluno, aluno_top: caractere nota, nota2, media, media2: real sala, cont: inteiro inicio cont <- 1 media2 <- -1 Escreval ("-----------------------------------------------------------------------------------") Escreval (" Escola Santa Nota ") Escreval ("-----------------------------------------------------------------------------------") Escreval ("Quantos alunos tem na sala? ") Escreva ("R: ") Leia (sala) Enquanto (cont <= sala) faca Escreval ("----------------------------------------------------------------------------------------") Escreval (" Aluno", cont, " ") Escreval ("Qual o nome do aluno? ") Escreva ("R: ") Leia (aluno) Escreval ("Qual a primeira nota de ", aluno, "?") Escreva ("R: ") Leia (nota) Escreval ("Qual a segunda nota de ", aluno, "?") Escreva ("R: ") Leia (nota2) Escreval (" ") media <- (nota + nota2) / 2) Escreval ("A média de ", aluno, " foi de ", media, "!") Escreval (" ") Se (media >= 9) e (media <= 10) então Escreval ("Excelente, ", aluno, " tirou nota A! ") senao Se (media >= 8) e (media <= 8.9) então Escreval ("Otimo, ", aluno, " tirou nota B! ") Senao Se (media >= 6) e (media <= 7.9) então Escreval ("Ok, ", aluno, " tirou nota C! ") Senao Se (media >= 4.9) e (media <= 5.9) então Escreval (aluno, " tirou nota C e está de recuperação! ") Senao Se (media >= 4) e (media <= 4.8) então Escreval (aluno, " tirou nota D e está parcialmente reprovado! ") Senao Se (media <= 3.9) então Escreval (aluno, " tirou nota E e está completamente reprovado! ") FimSe FimSe FimSe FimSe FimSe FimSe cont <- cont + 1 Se (media > media2) então media2 <- media aluno_top <- aluno FimSe FimEnquanto Escreval ("-------------------------------------------------------------------------------------") Escreval (" ") Escreval ("O melhor aproveitamento foi do(a) aluno(a) ", aluno_top, " com a media ", media2, "!") fimalgoritmo Acho que ficou legal por enquanto. Obrigado mais uma vez.

Obrigado @Math.Pi , consegui, porém tive que declarar a variavel media2 em 1. Ficou assim: inicio cont <- 1 media2 <- 1 Escreval ("----------------------------------------------------------") Escreval (" Escola Santa Nota ") Escreval ("----------------------------------------------------------") Escreval ("Quantos alunos tem na sala? ") Leia (sala) Enquanto (cont <= sala) faca Escreval ("--------------------------------------------") Escreval (" Aluno", cont, " ") Escreval ("Qual o nome do aluno? ") Escreva ("R: ") Leia (aluno) Escreval ("Qual a primeira nota de ", aluno, "?") Leia (nota) Escreval ("Qual a segunda nota de ", aluno, "?") Leia (nota2) media <- (nota + nota2) / 2) Escreval ("A média do ", aluno, " foi de ", media) cont <- cont + 1 Se (media > media2) então media2 <- media aluno_top <- aluno FimSe FimEnquanto Escreval ("--------------------------------------------") Escreval ("O melhor aproveitamento foi do aluno ", aluno_top, " com a media ", media2) fimalgoritmo

Ola galera, sou novo aqui no forum e estou começando a aprender programação. Estou criando um algoritmo que eu coloque o nome do aluno, com suas duas notas, dando a media das duas notas. Até ai tudo bem, porém quero que no final ele me diga qual o aluno com a maior media e qual a maior media. Segue algoritmo: algoritmo "melhoralunodasala" var aluno, aluno_top: caractere nota, nota2, cont2, media, media2: real sala, cont: inteiro inicio cont <- 1 cont2 <- 0 Escreval ("----------------------------------------------------------") Escreval (" Escola Santa Nota ") Escreval ("----------------------------------------------------------") Escreval ("Quantos alunos tem na sala? ") Leia (sala) Enquanto (cont <= sala) faca Escreval ("--------------------------------------------") Escreval ("Aluno", cont) Escreval ("Qual o nome do aluno? ") Leia (aluno) Escreval ("Qual a primeira nota de ", aluno, "?") Leia (nota) Escreval ("Qual a segunda nota de ", aluno, "?") Leia (nota2) media <- (nota + nota2) / 2) Escreval ("A média do ", aluno, " foi de ", media) cont <- cont + 1 FimEnquanto media2 <- 9999999 Se (media2 > media) então media2 <- media aluno_top <- aluno FimSe Escreval ("O melhor aproveitamento foi do aluno ", aluno_top, "com a media ", media2) fimalgoritmo No final onde deveria aparecer a maior media, esta aparecendo a ultima media digitada, já tentei de varias formas e não vai. Agradeço, antes de mais nada. Obrigado