Estrutura de repetição com vetores

Há vários tópicos sobre isso:

http://forum.imasters.com.br/topic/505362-exercicios-resolvidos-vai-quebrar-seu-galho/

http://forum.imasters.com.br/topic/258254-resolvidoalgoritmo-maior-entre-n-numeros/

http://forum.imasters.com.br/topic/425027-resolvidofuncao-para-pegar-maior-numero-de-vetor/

http://forum.imasters.com.br/topic/268048-resolvidoalgoritmo-maior-e-menor/

Um ótimo tutorial

Algoritmo "Obter notas e apresentar menor e maior em vetor"

Var

nNotas: VETOR[1..3] DE INTEIRO
I: INTEIRO
nNumero:Inteiro
nMaior, nMenor: INTEIRO

Inicio

Escreva("Digite o número de notas que você deseja calcular: ")
Leia(nNumero)

Para I De 1 Ate nNumero Passo 1 Faca
Escreva("Digite uma nota: ")
Leia(nNotas[I])
Fimpara

Para I De 1 Ate nNotas[I] Passo 1 Faca
Se nMenor <= nNotas[I]
nMenor <- nNotas[I]

Senao
Se nMaior >= nNotas[I]
nMaior <- nNotas[I]

Fimse
Fimse

Fimpara

Escreval("A nota maior é", nMaior)
Escreval("A nota menor é",nMenor)

Fimalgoritmo

Beraldo, depois de ler algumas dúvidas de outros membros, consegui fazer mais uma parte,que está acima, mesmo assim ainda não consegui concluir o algoritmo, se você pudesse me ajudar eu agradeceria.

Algoritmo "Obter notas e apresentar menor e maior em vetor"
Var

nNotas: VETOR[1..50] DE INTEIRO
I: INTEIRO
nNumero:Inteiro
nMaior, nMenor: INTEIRO

Inicio

Escreva("Digite o número de notas que você deseja calcular: ")
Leia(nNumero)

Para I De 1 Ate nNumero Passo 1 Faca
Escreva("Digite a", I,"° nota: ")
Leia(nNotas[I])
Fimpara

nMaior <- nNotas[1]
nMenor <- nNotas[1]

Para I De 1 Ate nNumero Passo 1 Faca
Se nMenor >= nNotas[I] Entao
nMenor <- nNotas[I]

Senao
Se nMaior <= nNotas[I] Entao
nMaior <- nNotas[I]

Fimse
Fimse
Fimpara

Escreval("A nota maior é", nMaior)
Escreval("A nota menor é", nMenor)
Fimalgoritmo

Podem marcar tópico como resolvido, consegui completa-lo abaixo a resolução: