algoritmo

Variavel A=100;
Faça enquanto A<200
    vetorCR[A]
    somar 1 em A
Fim-faça

Variavel B=200
Faça enquanto B>100
    vetorDECR[B]
    Diminuir 1 de B
Fim-Faça

fiz um programa em pascal, qualquer dúvida é só perguntar

program vetores;
var
   vet1, vet2: array[0..20] of integer; //cria os dois vetores [0..20] (100 até 120)
   i:integer;    //limita o for e soma/subtrai

begin
  //crescente
  for i:=0 to 20 do
      begin
        vet1[i]:=100 + i;  //começa com 100 e vai até 120
      end;
  //decrescente
  for i:=0 to 20 do
      begin
        vet2[i]:=120 - i;  //começa com 120 e vai até 100
      end;
  //mostrar
  writeln('Vetor de ordem crescente');
  for i:=0 to 20 do
      begin
        write(vet1[i],', ');
      end;
  readln;
  writeln;
  writeln('Vetor de ordem decrescente');
  for i:=0 to 20 do
      begin
        write(vet2[i],', ');
      end;
  readln;
end.   

Espero ter ajudado

pra falar a verdade e parecido como o profº faz ,mas eu que nao estou entendendo..mas valeu.

EXEMPLO COMO ELE FAZ!

algoritmo "funçao"

// Função :

// Autor :

// Data : 1/8/2014

// Seção de Declara

var

fila : vetor [1..20] de inteiro

senha : inteiro

i ,x ,posicao,j,qtd,y: inteiro

num : inteiro

inicio

senha <- 100

qtd <- 0

Para i de 1 ate 20 passo 1 faca

   Escreval ("  ")

   Escreval ("  ")

   Escreval ("Aperte 1 para pegar a senha")

  leia (num)

enquanto (num <> 1) faca

    Escreval ("Número Inválido")

    Escreval (" ")

     Escreval (" ")

     Escreval ("Aperte 1 para pegar a senha")

     Leia (num)

   fimenquanto

   escreval ("A senha é", senha)

   fila[i] <- senha

   senha <- senha + 1

   qtd <- qtd + 1

   se(senha=120)entao

     escreval ("fila cheia")

   fimse

fimpara

y <- 1

Enquanto (y <> 0 ) faca

Escreval("Digite '0' para sair e '1' para continuar")

Leia(y)

Escreval("Digite quem saiu da fila")

Leia(x)

Para i de 1 ate qtd faca

   Se (fila[i] = x) entao

     Escreval("Achei na posicao ",i)

     posicao <- i

     Para j de posicao ate qtd-1 faca

        fila[j] <- fila[j+1]

     fimpara

     fila[qtd]<- 0

     qtd <- qtd - 1

   fimse

fimpara

fimenquanto

  Para i de 1 ate qtd faca

  Escreval (fila [i])

  fimpara

fimalgoritmo

E DESSE JEITO AI,QUE O PROFº QUER ,TA PARECIDO COM O QUE VC FEZ,SO PORQUE O SEU TA EM INGLES.  OBGR.