Exercicio 10 da lista!

Dada uma sequência arbitrária de números inteiros positivos nõa nulos, terminada com um número zero, determinar as posições do maior e do menor número nesta sequência:

algoritmo "LISTA_10"

var
MAIOR, MENOR, N, C, X, Y: INTEIRO
inicio
LEIA (N)
MAIOR <- 0
MENOR <- N
X <- 1
Y <- 1
C <- 1
ENQUANTO N<>0 FACA
 SE N>MAIOR ENTAO
 MAIOR <- N
 X <- C
 FIMSE
 SE N
 MENOR <- N
 Y <- C
 FIMSE
 C <- C+1
 LEIA (N)
FIMENQUANTO
ESCREVAL ("POSIÇÃO DO MAIOR É=",X)
ESCREVAL ("POSIÇÃO DO MENOR É=",Y)
fimalgoritmo