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
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