Решите пожалуйста на Паскале

[Bagsi]

1.
const k=50;m=20;n=70;{n=k+m}
var x:array[1..k] of real; y:array[1..m] of real;
z:array[1..n] of real;
Элементы каждого из массивов x и y упорядочены по неубыванию.Объеденить элементы этих двух массивов z так, чтобы и он был упорядочен по неубыванию.

[_Dmitry]

Элементы каждого из массивов x и y упорядочены по неубыванию

Это значит по возрастанию, или есть еще варианты?

[Bagsi]

Это значит по возрастанию

[puporev]

Неубывание - более точный термин при сортировке массивов, т.к. часто встречаются интервалы с одинаковыми значениями. Эти интервалы нельзя назвать ни возрастанием ни убыванием, также как ноль и не отрицательное и не положительное число.

[_Dmitry]

Вот, что придумалось:

const
  k=50;
  m=20;
  n=k+m;
var
  x: array[1..k] of real;
  y: array[1..m] of real;
  z: array[1..n] of real;
  i,j,ix,iy: integer;
begin
  randomize;
  x[1]:=random*100;
  for i:=2 to k do
    x[i]:=x[i-1]+random*100;
  y[1]:=random*100;
  for i:=2 to m do
    y[i]:=y[i-1]+random*100;
  ix:=1; iy:=1;
  for i:=1 to n do
    if x[ix] > y[iy] then
      begin
        z[i]:=y[iy];
        iy:=iy+1;
        if iy > m then break;
      end
    else
      begin
        z[i]:=x[ix];
        ix:=ix+1;
        if ix > k then break;
      end;
  i:=i+1;
  if i <= n then
    if ix > k then
      for j:=i to n do z[j]:=y[iy+j-i]
    else
      for j:=i to n do z[j]:=x[ix+j-i];
end.