дано 2 массива а(9) и л(9). обьединить их в один отсортированный по возрастанию с(18) (Паскаль)

[leylo]

дано 2 массива а(9) и л(9). обьеденить их в один отсортироввный по возрастанию с(18)

Program lab4_3;
uses crt;
const n=3;
var m:array[1..n] of integer;
m1:array[1..n] of integer;
a:array[1..n*2] of integer;
u,b,l,i,j:integer;
tnp,tmp:integer;
begin
clrscr;
writeln('wedit masiv');
for i:=1 to n do read(m[i]);
writeln;
readln;
writeln('wedit masiv');
for i:=1 to n do read(m1[i]);
writeln;
readln;
for i:=1 to n do
begin
a[i]:=m[i];
a[i+n]:=m1[i]
end;
writeln('a[i]');
for i:=1 to n*2 do  write(a[i], ' ');
readln;
writeln(a[i]);
for i:=1 to n*2 do read(a[i]);
for i:=1 to n*2-1 do
for l:=i+1 to n*2 do
if a[l]<a[i] then
begin
b:=a[i];
a[i]:=a[l];
a[l]:=b;
end;
writeln('vidsortovanuy masiv');
for i:=1 to n*2 do write(a[i], ' ');
readln
end.

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

____
И прекратите заниматься КРОССПОСТИНГОМ!
(множественное создание одинаковых сообщений)
Это плохо для Вас закончится!

Модератор.