Привет. Вопрос:
есть вектор of record:
type MyType=record
x,y:integer;
end; //MyType
var a:array[1..255] of MyType;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].y>a[j].y then begin
aux:=a[i].y; a[i].y:=a[j].y; a[j].y:=aux;
aux:=a[i].x; a[i].x:=a[j].x; a[j].x:=aux;
end;
aux:=x; x:=y; y:=aux;
type MyType=record
x,y:integer;
end; //MyType
var a:array[1..255] of MyType;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].y>a[j].y then begin
aux:=a[i].y; a[i].y:=a[j].y; a[j].y:=aux;
aux:=a[i].x; a[i].x:=a[j].x; a[j].x:=aux;
end;
aux:=x; x:=y; y:=aux;
type
MyType=record
x,y: integer;
end; //MyType
var
a: array[1..255] of MyType;
b: MyType;
.....
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].y>a[j].y then begin
b:= a[i];
a[i]:= a[j];
a[j]:= b
end;
type
MyType=record
x,y: integer;
end; //MyType
var
a: array[1..255] of MyType;
b: MyType;
.....
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].y>a[j].y then begin
b:= a[i];
a[i]:= a[j];
a[j]:= b
end;