Слияние!!!!!

[NoeJI]

Путем слияния возростаючего массива А и убывающего массива В создать массив С(по возростанию). Я могу сделать это с возростающими массивами. Как с убывающим сделать?!!!
Помогите пожалуйста

[Leshii]

Кидай сюда то что получилось и будем делать вместе)

[NoeJI]

const
    N = 7;
var
    arr1,arr2: array[1..N] of integer;
    arr3: array[1..N+N] of integer;
    i,j,k,m: byte;
begin
    writeln('Заполните первый массив:');
    for i := 1 to N do
        read(arr1[i]);
 
    writeln('Заполните второй массив:');
    for i := 1 to N do
        read(arr2[i]);
 
    i := 1; j := 1; k := 1;
    while (i <= N) and (j <= N) do begin
        if arr1[i] < arr2[j] then begin
            arr3[k] := arr1[i];
            i := i + 1
        end
        else begin
            arr3[k] := arr2[j];
            j := j + 1
        end;
        k := k + 1;
    end;
 
    while i <= N do begin
        arr3[k] := arr1[i];
        i := i + 1;
        k := k + 1
    end;
 
    while j <= N do begin
        arr3[k] := arr1[j];
        j := i + 1;
        k := k + 1
    end;
 
    writeln;
    for i := 1 to N+N do
        write(arr3[i]:4);
 
end.

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

[NoeJI]

типо такого

[evg_m]

ели убывающий массив читать в обратном порядке то получится возрастающий.

Я могу сделать это с возростающими массивами

[FullVenic]

переверни убывающий массив на возростаючий а потом слей(оптимальное, правильное решение)

[Serge_Bliznykov]

Сообщение от FullVenic

переверни убывающий массив на возростаючий а потом слей(оптимальное, правильное решение)

решение рабочее, но абсолютно неэффективное!

Сообщение от evg_m

еcли убывающий массив читать в обратном порядке то получится возрастающий.

согласен.
вот это реально правильное и эффективное решение!


ДОБАВЛЕНО

1) NoeJI, у Вас ошибка в решении. посмотрите в этот кусочек кода и попытайтесь найти ошибки (аж две штуки!)

    while j <= N do begin
        arr3[k] := arr1[j];
        j := i + 1;
        k := k + 1
    end;

2) вот решение Вашей задачи:

const
  N = 7;
var
  arr1, arr2: array[1..N] of integer;
  arr3: array[1..N + N] of integer;
  i, j, k: byte;
begin
  writeln('Заполните первый массив (обязательно по возрастанию):');
  for i := 1 to N do
    read(arr1[i]);

  writeln('Заполните второй массив (обязательно по убыванию):');
  for i := 1 to N do
    read(arr2[i]);

  i := 1; j := N; k := 1;
  while (i <= N) and (j >= 1) do begin
    if (arr1[i] < arr2[j]) then begin
      arr3[k] := arr1[i];
      i := i + 1
    end
    else begin
      arr3[k] := arr2[j];
      j := j - 1;
    end;
    k := k + 1;
  end;

  while i <= N do begin
    arr3[k] := arr1[i];
    i := i + 1;
    k := k + 1
  end;

  while j >= 1 do begin
    arr3[k] := arr2[j];
    j := j - 1;
    k := k + 1
  end;

  writeln;
  for i := 1 to N + N do
    write(arr3[i]: 4);

  readln
end.

p.s. т.к. решение основывается на том, что исходные массивы отсортированы, то я бы добавил несколько строчек кода для проверки этого факта.
и если пользователь ввёл (ошибочно) неотсортированные массивы - то я бы в программе выдавал соответствующее сообщение и прекращал работу программы!