четверг, 5 сентября 2013 г.

Сортировка пузырьком

Const n=6;
type mas=array[1..n] of integer;
Var a:mas; l:integer;

procedure puzyr(var x:mas);
Var v,i,j:integer;
begin
for i:=1 to n-1 do
for j:=1 to n-i do if x[j] < x[j+1] then
begin
v:=x[j+1];
x[j+1]:=x[j];
x[j]:=v;
end;
end;