Составление массива из элементов других массивов

[ShaneRouge]

Добрый вечер.
Подскажите пожалуйста
Даны два одномерных массива.
Нужно составить третий массив каждый элемент которого будет равен четным элементам первого массива и нечетным элементам второго.
Заранее спасибо.
Конкретно интересует процедура заполнения третьего массива.

[Stilet]

Примерно так:

procedure aga(a,b:TArray;var c:TArray); var i:integer;
begin
 i:=1; while i<Length(a) do begin
  c[i]:=a[i]; inc(i);  c[i]:=b[i];
 end;
end;

Где TArray - тип массива.

[ViktorR]

1. Определимся с массивами:
Если массивы одного типа, то определим тип:

Const N = 20;
Type Mas = array[1..N] of <тут надо указать тип элементов>;

Если нет, то определим переменные типа массив, указав их размерность.

Процедуру формирования третьего массива, для первого (простого) случая , можно определить так:

procedure MakeMas(mA, mB : Mas; var mC : Mas);
var i : integer;
begin
   for i := 1 to N do
   begin
      if ((i MOD 2) = 0) then
         mC[i] := ma[i]
      else
         mC[i] := mB[i];
end;

Во втором случае надо понимать, как заполнять третий массив, если данных в исходных массивах или в одном из них - не достаточно.
Для правильного заполнения нужно контролировать границы исходных массивов.


Как-то так ...

Это на Паскале А Вам ?

[ShaneRouge]

Спасибо, разобрался.