Три последовательности. Опции

[SANCTUS]

Помогите решить!!!
Пусть A=(a1,a2,…,an), B=(b1,b2,…,bm), C=(c1,c2,…,cp) – три конечные последовательности натуральных чисел. Допустим, что каждая отдельно взята последовательность упорядочена по возрастанию. Объедините три последовательности в одну последовательность D=(d1,d2,…,dn+m+p), являющуюся списком всех чисел из А, В, С, такую, что d1≤d2≤…≤dn+m+p.
Обязательным условием является то, что слияние должно быть выполнено за m+n+p действий, т.е. число сравнений должно быть не больше m+n+p.

Заранее благодарен.

[volvo]

Ну, и что не устраивает? Правда, потребовались незначительные изменения ... Вот проверка: частный случай (n = m = p = maxn)...

program sliyati_tri_mas;

const
  maxn = 10;

type
  arr_type = array[1..maxn+1] of integer;
const
  a: arr_type = (2, 3, 4, 6, 8, 9, 11, 23, 25, 28, maxint);
  b: arr_type = (5, 6, 7, 11, 12, 17, 19, 20, 21, 22, maxint);
  c: arr_type = (15, 16, 17, 21, 22, 27, 29, 30, 31, 42, maxint);

function min(i, j: integer): integer;
begin
  min := i; if j < i then min := j
end;

var
  d: array[1..3*maxn]of integer;
  ia,ib,ic,id:integer;
  n,m,p:integer;

begin
  n := maxn; m := maxn; p := maxn;

  ia:=1; ib:=1; ic:=1; id:=0;

  while id<n+m+p do begin

    while (a[ia] <= min(b[ib], c[ic])) and (ia <= n) do begin

      inc(id); d[id]:=a[ia]; inc(ia);

    end;

    while (b[ib] <= min(a[ia], c[ic])) and (ib <= m) do begin

      inc(id); d[id]:=b[ib]; inc(ib);

    end;

    while (c[ic] <= min(a[ia], b[ib])) and (ic <= p) do begin

      inc(id); d[id]:=c[ic]; inc(ic);

    end;

  end;

  for id:=1 to n+m+p do
    write(d[id],' ');
end.

Вот результат:

2 3 4 5 6 6 7 8 9 11 11 12 15 16 17 17 19 20 21 21 22 22 23 25 27 28 29 30 31 42

Чем не устраивает? (Только не забывай добавлять последним элементом в каждом из 3-х массивов maxInt, иначе не сработает...)

[SANCTUS]

А сравнений точно не будет больше 30?