Question

Pascal!!! Даны два массива А и В размера 5, элементы которых упорядочены по возрастанию. Объединить эти массивы так, чтобы результирующий массив С(размеры 10) остался упорядоченным по возрастанию.

Answer 1

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
  var a:=SeqRandom(5,10,99).Sorted.ToArray; Writeln('a=',a);
  var b:=SeqRandom(5,10,99).Sorted.ToArray; Writeln('b=',b);
  var c:=new integer[10];
  var i:=0; var j:=0; var k:=0;
  while (i<5) and (j<5) do begin
    if a[i]<b[j] then begin c[k]:=a[i]; Inc(i) end
    else begin c[k]:=b[j]; Inc(j) end;
    Inc(k)
  end;
  if i=5 then
    for var m:=j to 4 do begin c[k]:=b[m]; Inc(k) end
  else
    for var m:=i to 4 do begin c[k]:=a[m]; Inc(k) end;
  Writeln('c=',c)
end.

Тестовое решение:
a=[14,53,78,86,89]
b=[35,57,63,85,94]
c=[14,35,53,57,63,78,85,86,89,94]

Answer 2

Привет! Чтобы объединить два упорядоченных по возрастанию массива A и B в новый массив C, который также будет упорядочен по возрастанию, можно использовать алгоритм слияния (merge).

Вот пример реализации данного алгоритма на языке Python:

pythonCopy code
def merge_arrays(arr1, arr2):
    merged = []
    i = j = 0

    while i < len(arr1) and j < len(arr2):
        if arr1[i] < arr2[j]:
            merged.append(arr1[i])
            i += 1
        else:
            merged.append(arr2[j])
            j += 1

    # Добавляем оставшиеся элементы из arr1, если они есть
    while i < len(arr1):
        merged.append(arr1[i])
        i += 1

    # Добавляем оставшиеся элементы из arr2, если они есть
    while j < len(arr2):
        merged.append(arr2[j])
        j += 1

    return merged

# Пример использования
array_A = [1, 3, 5, 7, 9]
array_B = [2, 4, 6, 8, 10]

array_C = merge_arrays(array_A, array_B)
print(array_C)

Результат выполнения данного кода будет:

csharpCopy code
[1, 2, 3, 4, 5, 6, 7, 8, 9, 10]

Таким образом, массив C будет содержать объединение элементов массивов A и B, упорядоченных по возрастанию.