Ana Leticia Montelo

Obrigada! Muito obrigada!

Eu o modifiquei e fiz assim:

algoritmo "Questão 5"
//Escrever um algoritmo que leia um vetor com 10 elementos inteiros e
//determine o maior e o menor elementos deste vetor, bem como suas
//posições. Estes valores devem ser escritos no algoritmo principal e
//devem ser passados/recebidos pela função
var
vet: vetor [1..10] de inteiro
contador,a,ma,me,posma,posme:inteiro

procedimento lernumero():inteiro

inicio
para a de 1 ate 10 faca
escreva("Escreva o ",a,"º número: ")
leia(vet[a])
fimpara
fimprocedimento

Procedimento comparar()
inicio
me<-vet[1]
ma<-vet[1]
posma<-1
posme<-1
para a de 2 ate 10 faca
     se me > vet[a] então
      me<- vet[a]
      posme<-a
     fimse
fimpara

para a de 2 ate 10 faca
     se ma < vet[a] então
      ma<- vet[a]
      posma<-a
     fimse
fimpara
   escreval("O menor elemento do vetor é" , me, " e está na posição ",posme)
   escreval("O maior elemento do vetor é" , ma, " e está na posição ",posma)
fimprocedimento

inicio
 lernumero()
 comparar()

fimalgoritmo

Alguém me explica como coloca a posição do primeiro valor digitado caso ele seja o maior ou o menor? Por exemplo eu estou digitando de 1 ate 10 aí no final aparece que a posição do menor(1) é 0 e se eu digitar ao contrario (de 10 ate 1) aparece que a posição do maior (10) é 0. Por favor me ajuda alguém! É urgente !!!

algoritmo "maior e menor"
var
vet: vetor [1..10] de inteiro
N,MA,ME,contador,posma,posme,a:inteiro

procedimento lernumero()
inicio

para a de 1 ate 10 faca
escreva("Escreva o ",a,"º número: ")
leia(vet[a])
fimpara
fimprocedimento


procedimento comparar()
inicio
para a de 1 ate 10 faca

se (contador=0) então
ME <- vet[a]
MA <- vet[a]
fimse
se vet[a] > MA então
MA <- vet[a]
posma<-a
fimse
se vet[a] < ME então
ME <- vet[a]
posme<-a
fimse


contador<-contador+1

 fimpara


fimprocedimento

inicio
contador<-0
lernumero()
comparar()

escreval ("MAIOR:",MA," posição",posma)
escreval ("MENOR:",ME," posição",posme)

fimalgoritmo