Вводя два массива целых чисел до 10 в каждом. из введенных двух массивов построить третий массив, в котором элементы будут располагаться в порядке возрастания. Распечатать все 3 массива.

Const

nm=10; {максимальная длина массива}

var

i, j, n1, n2, n3, t:integer;

a, b:array[1 ... nm] of integer;

c:array[1 ... 2*nm] of integer;

begin

Write ('Введите количество элементов в массиве A: ') ;

Readln (n1) ;

Write ('Введите количество элементов в массиве B: ') ;

Readln (n2) ;

n3:=n1+n2;

Write ('Введите элементы массива A через пробел ') ;

for i:=1 to n1 do

begin

Read (a[i]) ; c[i]:=a[i]

end;

j:=n1;

Write ('Введите элементы массива B через пробел ') ;

for i:=1 to n2 do

begin

Read (b[i]) ; Inc (j) ; c[j]:=b[i]

end;

Write ('Массив А: ') ;

for i:=1 to n1 do Write (a[i],' ') ;

Writeln;

Write ('Массив B: ') ;

for i:=1 to n2 do Write (b[i],' ') ;

Writeln;

{ сортировка массива С}

for i : = 1 to n3-1 do

for j : = 1 to n3-i do

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

begin

t:=c[j]; c[j]:=c[j+1]; c[j+1]:=t

end;

Writeln ('Отсортированный по возрастанию массив C') ;

for i:=1 to n3 do Write (c[i],' ') ;

end.

Контрольное решение:

Введите количество элементов в массиве A: 6

Введите количество элементов в массиве B: 4

Введите элементы массива A через пробел 3 8 - 4 0 8 12

Введите элементы массива B через пробел 9 - 5 8 5

Массив А: 3 8 - 4 0 8 12

Массив B: 9 - 5 8 5

Отсортированный по возрастанию массив C

-5 - 4 0 3 5 8 8 8 9 12