AYUDA NECESITO un programa en PASCAL

YAQUELIN
16 de Marzo del 2006
HOLA NECESITO UN PROGRAMA EN TURBO PASCAL SOBRE UN VECTOR QUE DADO N NUMEROS ME LOS ORDENE DE MENOR A MAYOR PARA AHORITA PLIS SE LOS AGRADECERIA MUCHO YA QUE ES UN EXAMEN . MIL GRACIAS . [email protected]

crisam
16 de Marzo del 2006
{espero que te sirva este funciona con ordenamiento burbuja}

program orden;
uses
crt;
const
maximo = 20;
type
lista = array[1..maximo] of integer;
var
vector:lista;


procedure intercambio(var x,y:integer);
var
aux : integer;
begin
aux := x;
x:=y;
y:=aux;
end;

procedure ordenar(var vector:lista;max:integer);
var
x, y: integer;
begin
for x:= 1 to max do
for y := x to max do
if vector[x]>vector[y] then
intercambio(vector[x],vector[y]);
end;

procedure verlista(var vector:lista; max:integer);
var
x : integer;
begin
writeln;
for x := 1 to max do
write(vector[x]:10);
end;
procedure generar(var vector:lista; max:integer);
var
x : integer;
begin
for x := 1 to max do
vector[x]:= random(50);
end;
begin
clrscr;
generar(vector,maximo);
verlista(vector,maximo);
writeln;
ordenar(vector,maximo);
verlista(vector,maximo);
readkey;
end.