В заданном целочисленном массиве ....., Решение Опции

[Neo]

Помогите пожалуйста решить 2 задачи по программированию, а то горю очень сильно((( В пятницу зачет по ним будет, а мне еще делать очень много.
1.В заданном целочисленном массиве найти элементы, сумма которых равна данному числу, в предположении, что такие числа существуют. (данное число любое).
2.Даны два одномерных массива, соединить их в один так, чтобы сначала шли 3 элемента из первого, а потом 3 из второго, потом опять 3 из первого и опять 3 из второго.
Если поможете буду очень благодарен. Заранее спасибо.

[volvo]

В пятницу зачет по ним будет, а мне еще делать очень много.

А раньше ты о чем думал?

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

  i := 1;
  curr := 1;

  while i <= n - 2 do begin

    for j := 0 to 2 do begin
      arr[curr] := a[i + j]; inc(curr);
    end;
    for j := 0 to 2 do begin
      arr[curr] := b[i + j]; inc(curr);
    end;
    inc(i, 3);

  end;

[Neo]

Спасибо хоть за одну задачу. А вторую сможешь выложить??? Очень надо!

[Bokul]

1.В заданном целочисленном массиве найти элементы, сумма которых равна данному числу, в предположении, что такие числа существуют. (данное число любое).

А количество элементов, сума которых должна равняться заданному числу, ограниченно?