ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ
№ 5. ОБЪЕДИНЕНИЕ ДВУХ МАССИВОВ С ЧЕРЕДОВАНИЕМ ЭЛЕМЕНТОВ
ПОСТАНОВКА ЗАДАЧИ:
Объединить два массива A и B, содержащих по N элементов в один массив c, который будет содержать 2*N элементов, т.е. получить массив C=(а1,b1,a2,b2,..,an,bn).
Program Ob_Mass;
uses crt;
type massiv=array[1..20] of integer;
var a,b,c: massiv;
I, n: integer;
procedure Input(var x: massiv;
n: integer);
begin
for i:=1 to n do
begin
write('Элемент [',i,']=');
readln(x[i]);
end
end;
procedure Print(x: massiv; n: integer);
...
procedure Ob(n: integer);
begin
for i:=1 to n do
begin
c[2*i-1]:=a[i];
c[2*i]:=b[i]
end
end;
Begin
ClrScr;
n:=10;
Input(a,n);
writeln;
Input(b,n);
ClrScr;
write('Массив А: ');
Print(a, n);
writeln;
write('Массив B: ');
Print(b, n);
writeln;
Ob(n);
write('Массив C: ');
Print(c, 2*n);
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Изменить количество элементов в массивов.
3. Объединить массивы так, чтобы элементы одного массива следовали
за элементами другого: c=(а1,а2,а3,..,аn,b1,b2,b3,..,bn).