Даны два вектора {хi}, {уi}, i = 1,...10, упорядоченные по возрастанию. Соединить их в...

Question

Даны два вектора {хi}, {уi}, i = 1,...10, упорядоченные по возрастанию. Соединить их в один вектор {zi}, i = 1, …, 20, так чтобы сохранилась упорядоченность.
На Паскале .
Прошу само решение, а не советы

Answer 1

Если правильно поняла задание

program pr1;
type  mas = array[1..100] of integer;
var  M,m1,m2, a: mas; i, n: integer;
procedure sort(var a: mas);var  x, i, j: integer;  flag: boolean;begin  i := 1; flag := true;  while (i <= n - 1) and flag do  begin    flag := false;    for j := 1 to n - i do      if a[j] > a[j + 1] then      begin        x := a[j]; a[j] := a[j + 1]; a[j + 1] := x; flag := true;      end;    inc(i);  end;end;

begin  read(n);  for i := 1 to n do    read(m1[i]);    for i := 1 to n do    read(m2[i]);   for i:=1 to n do    m[i]:=m1[i]+m2[i];  sort(m);  for i := 1 to n do    write(m[i]:4);end.