3 Algoritmo ajuda pf é sobre vetores, com procedimento e função ajuda pf

é no visualg

Faça um algoritmo que:
Leia um vetor de 8 posições
Leia um código: se o código for 1, mostrar o vetor na ordem direta que foi lido, se o código for 2, mostrar o vetor na ordem inversa a da leitura.

Faça um algoritmo que:
Leia o nome e o valor de 8 produtos (armazene-os em dois vetores separados, um para os produtos e outro para os preços)
Crie uma função para calcular a quantidade de produtos com preço inferior a R$ 50,00
Crie um procedimento que imprima o nome dos produtos com preço entre R$ 50,00 e R$100,00
Crie uma função que calcule a média dos preços dos produtos com preço superior a R$ 100,00.

Faça um programa que:
Leia um vetor A de 6 elementos contendo o gabarito da Mega Sena.
A seguir, leia um vetor B de 10 elementos contendo uma aposta.
Crie uma função que calcule quantos pontos fez o apostador
Crie um procedimento que receba a quantidade de acerto e retorne se ele fez a sena (6 acertos), a quina (5 acertos), a quadra (4 acertos) ou nenhum dos anteriores.

Código:


algoritmo "VetorCod1e2"
{ Função :ler as oito posições de um programa e escrever na ordem crescente
ou descrescente o que foi digitado}
// Autor : Marcos20
// Data : 08/11/2013
// Seção de Declarações
var
meuvetor : vetor [1..8] de inteiro
contaDigito : inteiro
indice : inteiro
codigo : inteiro
inicio
// Seção de Comandos

contaDigito <- 1;
para indice de 1 ate 8 faca
  escreva ("digite valor: ", contaDigito, ":")
  leia (meuvetor[indice])
  contaDigito <- contaDigito + 1
fimpara

escreval
escreva ("Digite o codigo (1 ou 2): ")
leia (codigo)

se (codigo = 1) entao
  para indice de 1 ate 8 passo 1  faca
      escreva(meuvetor[indice]," ")
  fimpara
fimse

se (codigo = 2) entao
  para indice de 8 ate 1 passo -1 faca
      escreva(meuvetor[indice])
  fimpara
fimse

fimalgoritmo