maior e menor nota

[hisael]

​PROBLEMA: MENOR NOTA SEMPRE É = A 0.

OQUE HÁ DE ERRADO NESTE ALGORITMO?

algoritmo "maior_e_menor_nota"

// Função :

// Autor :

// Data : 22/12/2014

// Seção de Declarações

var

cont : inteiro

nota ,maior ,menor: real

inicio

// Seção de Comandos

cont <- 1

enquanto (cont <= 5)faca

escreva ("nota: ")

leia (nota)

se (nota > maior)então

maior <- nota

fimse

se (nota < menor)então

menor <- nota

fimse

cont <- cont + 1

fimenquanto

escreval ("maior nota: ",maior)

escreva ("menor nota : ",menor)

fimalgoritmo

Editado Dezembro 22, 2014 por hisael

[Jhonas]

algoritmo "maior e menor"

procedimento kk()
var
N,MA,ME,cont:inteiro
inicio
leia (N)
ME <- N
MA <- N
para cont de 1 ate 19 faca
Leia (N)
se N < ME então
ME <- N
fimse
se N > MA então
MA <- N
fimse
fimpara
escreval ("MAIOR:",MA)
escreval ("MENOR:",ME)
fimprocedimento

inicio
kk()
fimalgoritmo

OBS: Compare com o seu código

http://www.hardware.com.br/comunidade/ler-numeros/1219207/

abraço