1 |
<span style="color: #ff0000;">Dados o número <em>n</em> de alunos de uma turma de Algoritmo e suas </span> |
1 |
<span style="color: #ff0000;">notas da primeira prova, determinar a maior e a menor nota obtidas por essa turma </span> |
1 |
<span style="color: #ff0000;">(Nota máxima = 100 e nota mínima = 0).</span> |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
program Notas; var n, Nota, Contador, NotaMaior, NotaMenor: integer; begin writeln ('Entre com o numero de alunos: '); read (n); writeln ('Digite as notas(de 0 a 100) dos alunos: '); Nota := 0; Contador := 0; NotaMaior := 0; NotaMenor := 100; repeat read (Nota); Contador := Contador+1; if (NotaMaior < Nota) then NotaMaior := Nota; if (NotaMenor > Nota) then NotaMenor := Nota until Contador = n; writeln ('A maior nota obtida foi: ',NotaMaior); writeln ('A menor nota obtida foi: ',NotaMenor) end. |