{Mira a qui tienes un ejemplo}
program enordenvector;
uses
crt;
const
nvec = 20;
type
elvector = array[1..nvec] of integer;
var
h, t : integer;
vector : elvector;
procedure cargavalores;
var
valor, tomado : integer;
begin
randomize;
tomado := 1;
fillchar(vector,sizeof(elvector),0);
repeat
valor := random(40) + 1;
vector[tomado] := valor;
tomado := tomado + 1;
until tomado > nvec;
end;
procedure muestravector;
var
m : integer;
begin
for m := 1 to nvec do
write(' ',vector[m]); end;
procedure ordenavector;
var
g, u, aut : integer;
begin
for g := 1 to nvec - 1 do
begin
for u := nvec downto g + 1 do
begin
if vector[g] > vector[u] then
begin
aut := vector[u];
vector[u] := vector[g];
vector[g] := aut;
end;
end;
end;
end;
begin
clrscr;
cargavalores;
t := 0;
for h := 1 to nvec - 1 do
begin
if vector[h] > vector[h + 1] then
begin
writeln(' No '); t := 10;
break;
end;
end;
if t = 0 then
writeln(' Si '); writeln;
muestravector;
writeln;
ordenavector;
writeln;
t := 0;
for h := 1 to nvec - 1 do
begin
if vector[h] > vector[h + 1] then
begin
writeln(' No '); t := 10;
break;
end;
end;
if t = 0 then
writeln(' Si '); writeln;
muestravector;
readkey;
end.
Crear cuenta