Сортировка массивов (Pascal/Delphi)

[Arbaiter]

Даны 3 одномерных динамических массива. В 1-ом и 2-ом введены рандомные положительные и отрицательные числа.
Необходимо, чтобы по нажатии кнопки числа из этих двух массивов вывелись в третьем таким образом, чтобы сначала ишли положительные, отсортированные по возврастанию, а затем отрицательные, отсортированные по убыванию.
Полный ступор, кучу заданий уже сделал, а это не поддаётся.
Спасибо зараннее.

[VIK_aka_TOR]

сортируешь в нужном порядке сперва 1 и 2 массив... (насколько я понимаю в первом только положительные, во втором только отрицательные) ... затем записываешь элементы первого массива в 3 массив, затем дописываешь третий вторым массивом...
как то так...

[Arbaiter]

В первом и втором массивах вручную записаны и отрицательные и положительные числа, абсолютно рандомно.=(

[Mad_Cat]

1) отсортируй оба массива по убыванию
2.1 найди поз.1-го отр в 1-ом масиве отсортируй по возрастанию от 0 до этой поз
2.2 аналогично во 2-м
2.3 сливай в 3-й массив без нарушения упорядоченности из 2-х массивов одновременно от 0 до Поз 1-го отр в обоих соответственно(алгоритмы на форуме есть)
2.4 тоже самое но с Поз 1-го отр до конца Массивов

[Arbaiter]

1)

 for i:=1 to N do
  A[i]:=StrTofloat(StringGrid1.Cells[i,0]);
 for i:=1 to M do
  B[i]:=StrTofloat(StringGrid2.Cells[i,0]);

  for i:=1 to n do
  for j:=n downto i do
  if a[j-1]<a[j] then
      begin
      r:=a[j];
      a[j]:=a[j-1];
      a[j-1]:=r;
   end;

  for i:=1 to m do
  for j:=m downto i do
  if b[j-1]<b[j] then
      begin
      r:=b[j];
      b[j]:=b[j-1];
      b[j-1]:=r;
   end;

Сортировка двух массивов это или полный бред?

[VIK_aka_TOR]

держи... я сделал по своему... только подправишь для дельфы... сделано на паскале... пихашь первых 2 масива в третий... и сортируешь...

var
i,j,n,buf: integer;
a: array [1..10] of integer;
flag:boolean;
begin
n:=10;
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
     flag:=false;
     for j:=i to n do
     if a[j] > 0 then
     flag := true;  // проверка есть ли ещё положительные элементы
if flag = true then  // сортируем положительные элементы
 begin
for j:=i to n do
         if (a[j] > 0) then
         if (a[i] < 0) then
         begin
              buf:= a[i];
              a[i]:= a[j];
              a[j]:= buf;
         end
         else
         if (a[i] > a[j]) then
          begin
              buf:= a[i];
              a[i]:= a[j];
              a[j]:= buf;
         end;
 end
else  // сортировка отрицательных
 for j:=i to n do
  if a[i] < a[j] then
     begin
     buf:=a[i];
     a[i]:=a[j];
     a[j]:=buf;
     end;
end;
writeln;
for i:=1 to n do
writeln(a[i]);
end.

[Arbaiter]

Как ни пытаюсь понять, всё не выходит)

[VIK_aka_TOR]

сперва проверяем есть ли положительные элементы... если положительные есть, то ищем их и сортируем... когда положительных нету... сортируем отрицательные... может не совсем как предлагали выше.. но такова моя идея была...

P.S. и что тебе тут не понятно??? либо юзай F7... либо сам пройдись по алгоритму программы... с карандашиком и листиком...
P.S.P.S. жмякни на весы хлоть...

[Arbaiter]

И на том спасибо)