Даны два массива А и В, состоящие из 6 элементов. Объединить два массива в один массив с чередованием элементов исходных массивов. Вывести новый массив. паскаль.

Вы забыли уточнить, какие типы данных должны иметь элементы массивы, но это не так важно. В общем, вот описанная вами программа:

Var A:array[1 ... 6] of integer;

B:array[1 ... 6] of integer;

C:array[1 ... 12] of integer;

i, ka, kb:integer;

Begin

for i:=1 to 6 do read (A[i]);

for i:=1 to 6 do read (B[i]);

ka:=1; kb:=1;

for i:=1 to 12 do begin

if i mod 2=1 then begin

C[i]:=A[ka];

ka:=ka+1;

end

else begin

C[i]:=B[kb];

kb:=kb+1;

end;

end;

for i:=1 to 12 do write (C[i],' ');

readln;

End.

Пример работы программы. При вводе следующих чисел: 1 2 3 4 5 6 7 8 9 10 11 12, программа выводит: 1 7 2 8 3 9 4 10 5 11 6 12.