Vetor em que eu mostre o maior e o menor número

[Liandra Giovanna]

Tenho que fazer um vetor de 10 posições e mostrar o maior e o menor número desse vetor. Estou tendo dificuldade com o menor número, sempre dá zero. Abaixo meu algoritmo:

var
i:inteiro
   x:vetor[1..10] de inteiro
   menor:inteiro
   maior:inteiro
inicio
     escreval ("digite 10 números")
  para i de 1 ate 10 faca
    escreval ("digite o",i, "ºnúmero")
leia(x)
  fimpara
 para i de 1 ate 10 faca
 se (maior < x) então
 maior <- x
 fimse
 se (menor > x) então
 menor -> x
 fimse
 fimpara
 escreva (menor)
 escreva (maior)
fimalgoritmo

 

[devair1010]

@Liandra Giovanna    você precisa colocar em qual posição do vetor está se referindo, e precisa inicializar as variáveis maior e menor com o primeiro número digitado para que a partir daí ele faça as verificações de maior e menor .

  veja seu código com algumas modificações :

Algoritmo "semnome"
var
  i     : inteiro
  x     : vetor[1..10] de inteiro
  menor : inteiro
  maior : inteiro
inicio
  escreval ("digite 10 números")
  para i de 1 ate 10 faca
    escreva("digite o ",i,"º número --> ")
    leia(x[i])
  fimpara
  para i de 1 ate 10 faca
    se i=1 ENTÃO
      maior:=x[i]
      menor:=x[i]
    fimse
    se (maior < x[i]) ENTÃO
      maior <- x[i]
    fimse
    se (menor > x[i]) ENTÃO
      menor := x[i]
    fimse
  fimpara
  escreval("o menor número é = ",menor)
  escreval("o maior número é = ",maior)
fimalgoritmo