Даны два массива А и В, состоящие из 6 элементов.

Объединить два массива в один массив с чередованием элементов исходных

массивов. Вывести новый массив.

паскаль.

Program z10;

VAR

a, b: Array [1 ... 6] of integer;

i:integer;

Begin

Randomize;

For i:=1 to 6 do

begin

a[i]:=random (999) ;

end;

For i:=1 to 6 do

begin

b[i]:=random (999) ;

end;

For i:=1 to 6 do

begin

write (a[i],' ', b[i],' ') ;

end;

end.

Uses crt;

const n=6;

var i:integer;

a, b:array[1 ... 6] of integer;

begin

writeln ('Введите элементы массива A.') ;

for i:=1 to n do

read (a[i]) ;

writeln ('Введите элементы массива B.') ;

for i:=1 to n do

read (b[i]) ;

for i:=1 to n do

write (a[i],' ', b[i],' ') ;

end.