Технический форум - Объединить элементы двух массивов в один массив

Цитата:

Сообщение от Колясик (Сообщение 1018803)

массивы X(N), Y(N). элементы каждого из массивов упорядочены не по убыванию. объединить элементы двух массивов в один массив W так, что бы они снова оказались упорядоченными по неубыванию.

Код:

Const

 N=20;



Type

 Ar=Array[1..2*N] of Integer;



Var

 X,Y,W:Ar;

 q:Byte;



Procedure Bubble(M:Byte; var A:Ar);

var

 i,j:Byte;

 D:Integer;

begin

 for i:=1 to M-1 do

  for j:=1 to M-i do

   if A[j]>A[j+1] then

    begin

     D:=A[j];

     A[j]:=A[j+1];

     A[j+1]:=D;

    end;

end;



Begin

 Randomize;

 for q:=1 to N do

  begin

   X[q]:=-2+Random(25);

   Y[q]:=-10+Random(25);

  end;

 Bubble(N,X);

 Bubble(N,Y);

 Writeln('Array X:');

 for q:=1 to N do write(X[q]:4);

 Writeln;

 Writeln;

 Writeln('Array Y:');

 for q:=1 to N do write(Y[q]:4);

 Writeln;

 Writeln;

 for q:=1 to N do

  begin

   W[q]:=X[q];

   W[N+q]:=Y[q];

  end;

 Bubble(2*N,W);

 Writeln('Array W:');

 for q:=1 to 2*N do write(W[q]:4);

 Readln

End.