Список

[Veronika_13]

Паскаль АВС. Написать программу, содержащую процедуру, которая объединяет два упорядоченных по неубыванию списка М1 и М2 в один упорядоченный по неубыванию список: сменив соответствующим образом ссылки в М1 и М2.

[Serge_Bliznykov]

ну Вы хотябы описание и заполнение списком M1 и M2 написали?
Если да - давайте сюда ваш код, вместе помозгуем, как их в один список слить.
Если нет - то Вам нужно или на чудо надеяться или во фриланс обращаться...

[Veronika_13]

program lfn;
const MaxN = 100001;

type arr = array [0..MaxN] of longint;

var n, i, m,j : longint;
a1,a2,a: arr;

procedure union(a1,a2:arr; var a:arr);
var l, r : longint;
begin
l:=1; r:=1;
for i:=1 to n+m do
begin
if (l>n) then begin
a[i]:=a2[r];
inc(r);
continue;
end;
if (r>m) then begin
a[i]:=a1[l];
inc(l);
continue;
end;
if (a1[l] <= a2[r]) then begin
a[i]:=a1[l];
inc(l);
end
else begin
a[i]:=a2[r];
inc(r);
end;
end;
end;

Begin
readln( n);
for i:=1 to n do
read(a1[i]);
readln(m);
for i:=1 to m do
read(a2[i]);
union(a1,a2,a);
for i:=1 to n+m do write(a[i],' ');
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

В программе используются массивы.
А про списки можно тутпочитать
http://www.pascal.helpov.net/index/d...al_programming