Question

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

Answer 1

// PascalABC.NET 3.3
begin
  var a := ArrRandomInteger(10); a.Sort;
  var b := ArrRandomInteger(10); b.Sort;
  var c := new integer[20];
  
  writeln('Array 1:'); a.println;
  writeln('Array 2:'); b.println;
  
  var i := 0;
  var j := 0;
  var k := 0;
  while (i < 10) and (j < 10) do
  begin
    if a[i] < b[j] then
    begin
      c[k] := a[i];
      i := i + 1;
    end else begin
      c[k] := b[j];
      j := j + 1;
    end;
    k := k + 1;
  end;
  while i < 10 do
  begin
    c[k] := a[i];
    i := i + 1;
    k := k + 1;
  end;
  while j < 10 do
  begin
    c[k] := b[j];
    j := j + 1;
    k := k + 1;
  end;
  
  writeln('Merged array:'); c.println;
end.