Pascal/Turbo Pascal - ORDEN INVERTIDO DE VECTORES.. AYUDA PORFAVOR

HOLA HOLA ESPERO QUE ANDEN MUY BIEN....

FIJENSE KE NECESITO DE SU AYUDADITA...
AHORA ESTOY DESARROLLANDO UN PROGRAMA EN EL CUAL INVIERTA EL ORDEN DE n NUMEROS ENTEROS INGRESADOS.....

OSEA KE EL PRIMERO INGRESADO SE COLOQUE EN LA ULTIMA POSICION, EL SEGUNDO EN LA PENULTIMA, EL TERCERO EN LA ANTEPENULTIMA Y ASI SUCESIVAMENTE....

PARA EMPEZAR, EL USUARIO DEBE DE DETERMINAR EL TAMAÑO DEL VECTOR, EL INGRESARÁ LA CANTIDAD DE DATOS KE SE DESEAN INGRESAR....

SE KE SE HACE CON ARRAY'S PERO A LA HORA DE INVERTIR EL ORDEN DE LOS DATOS INGRESADOS ES DONDE TENGO EL PROBLEMITA... AKI LES MANDO KOMO TENGO DESARROLLADOD HASTA EL MOMENTO EL PROGRAMA:

program invertido;
uses crt;
var
n,op,i,j:integer;
v1:array[1..20] of integer;
v2:array[1..20] of integer;
procedure menu;

begin
clrscr;
gotoxy(12,12);write('1.............. Ingreso de Datos ');
gotoxy(12,13);write('2.............. Visualizacion de Datos ');
gotoxy(12,14);write('3.............. Salida ');
gotoxy(16,16);write('[ ] Elija Opcion');
gotoxy(17,16);readln(op);
end;

procedure ingreso;
begin
clrscr;
gotoxy(12,12);write('Ingreso de Datos ');
gotoxy(12,14);write('Cuantos datos desea ingresar??');
gotoxy(43,14);readln(n);
for i:=1 to n do
begin
gotoxy(12,i+15);write('Dato ',i);
gotoxy(20,i+15);readln(v1[i]);
end;
end;

procedure mostrar;
begin
clrscr;
gotoxy(12,12);write('Orden Invertido de Posiciones ');
for j:=1 to n div 2 do
begin
v2[j]:=v1[i]-(j);
gotoxy(12,j+14);write(v2[j]);
end;
readln;
end;

begin
repeat
menu;
case op of
1:ingreso;
2:mostrar;
end;
until op=3;
readln;
end.

SI ME PUDIERAN AYUDAR SE LOS AGRADECERIA MUCHISIMO..
GRACIAS
MELVIN

Siendo A el array donde están los datos, n el tamaño del array.

j:=n;
for i:=1 to (n div 2) do
begin
aux:=A[i];
A[i]:=A[j];
A[j]:=aux;
dec(j);
end;

GRACIAS POR TU AYUDA, SOLO NECESITO SABER PARA QUE ES LA VARIABLE DEC QUE TIENES UTILIZANDO AHI, TE LO AGRADECERIA MUCHO SI ME ACLARARAS ESTO...

GRACIAS... MELVIN

No es una variable, es un prodecimiento. Dec() decrementa en uno el valor de la variable que le pasas como parámetro, o sea, es lo mismo que hacer:
j:=j-1;
con la ventaja de que Dec() no permite que se produzca un underflow.
El procedimiento contrario es Inc(), o sea incrementa en uno la variable que le pasas como parámetro. Esa variable puede ser de cualquier tipo ordinal.

HOLA MIRA NECESITO SABER EL CODIGODE ESE PROCEDIMIENTO DEC() QUE ME DIJISTE KE PUSIERA PORQUE LA VERDAD NO TE ENTIENDO COMO LO PUSISTE..

SE TE AGRADECERIA MUCHO LA AYUDA..
GRACIAS
MELVIN

Eh... bueno, le escribiré un mail a Borland solicitándoselo pero no creo que me lo den :P.

Tanto Dec() como Inc() son procedimientos estándares de Pascal.

HOLA:
DALE NO ME HAGAS PERDER EL TIEMPO ASI, SI SABES QUE LO NECESITO

Necesitar qué...

DISCULPA que te moleste pero necesito el codigo del programa que te mande pero ya con el procedimiento dec () que me dijiste que pusiera porque en verdad no te entiendo como es que hay que hacerlo...

GRACIAS POR TU COMPRENSION..
MELVIN

Ya he respondido a eso...

amigos es un palcer saludarles.
solo para pedriles ayudita.
mi pregunat es esto
determinar la cantidad de veces que aparece cada elemento de un array.
Amigosmpor favor ayudenmeeeeeeeeç
BYe