Сортировка статического одномерного массива(паскаль)

[Yurik555]

Есть 3 статических одномерных массива.Пользователь вводит их, массивы(каждый) сортируются по убыванию и заносятся в динамический двумерный массив

var a,b,c: array[1..10] of integer;
x:array of integer;
i,j,n:integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(10)-5;
for i:=1 to 10 do b[i]:=random(10)-5;
for i:=1 to 10 do c[i]:=random(10)-5;
SetLength(x,32); {специальная процедура выделения памяти}
for i:=1 to 10 do
begin
inc(j);
x[j]:=a[i];
end;
for i:=1 to 10 do
begin
inc(j);
x[j]:=b[i];
end;
for i:=1 to 10 do
begin
inc(j);
x[j]:=c[i];
end;
for i:=1 to 30 do write(x[i],' ');
end.

Помогите пожалуйста сделать сортировку массива (паскаль)

[Yurik555]

Помогите пожалуйста сделать сортировку массива. Очень надо

[Hacker19_90]

Помогите пожалуйста сделать сортировку массива

procedure Sorting (var mas: array of integer; const count: integer)
var
    i: integer;
    flag: boolean;
begin
    repeat 
        flag := false;
        for i := 1 to (count - 1) do
            if mas[i] < mas[i+1] then
            begin
                flag := true;
                mas[i] := mas[i] + mas[i+1];
                mas[i+1] := mas[i] - mas[i+1];
                mas[i] := mas[i] - mas[i+1]
            end;
    until flag = false;    
end;

[ByAlex]

Сообщение от Yurik555

Помогите пожалуйста сделать сортировку массива. Очень надо

Не надо здесь столько циклов, одного хватит!

// старый вариант
for i:=1 to 10 do a[i]:=random(10)-5; 
for i:=1 to 10 do b[i]:=random(10)-5; 
for i:=1 to 10 do c[i]:=random(10)-5;
// новый вариант
for i:=1 to 10 do
begin
   a[i]:=random(10)-5; 
   b[i]:=random(10)-5; 
   c[i]:=random(10)-5;
end;

Зря проц гоняешь!