задача (Pascal): Дано два одномерных массива , объеденить их в третий, так чтобы числа с каждого массива чередовались по одному.
Я тут сделала, массивы объеденины, только не знаю как сделать чтобы они чередовалисть
Код: Выделить всё
program lalala;
uses crt;
type al=array[1..100] of integer;
var mas1,mas2,mas3:al;
n1,n2,n3,i:integer;
procedure vvod;
begin
randomize;
write('Введите кол-во эл-тов в 1-м массиве ');
readln(n1);
write('Введите кол-во эл-тов в 2-м массиве ');
readln(n2);
for i:=1 to n1 do
mas1[i]:=random(100);
for i:=1 to n2 do
mas2[i]:=random(100);
end;
procedure obrabotka;
begin
n3:=n1+n2;
for i:=1 to n1 do begin
mas3[i]:=mas1[i];
end;
for i:=n1+1 to n3 do begin
mas3[i]:=mas2[i-n1]
end;
end;
procedure vivod;
begin
gotoxy(10,1);
writeln('Массив 1');
for i:=1 to n1 do begin
gotoxy(i*4,2);
write(mas1[i]);
end;
gotoxy(10,3);
writeln('Массив 2');
for i:=1 to n2 do begin
gotoxy(i*4,4);
write(mas2[i]);
end;
gotoxy(10,5);
writeln('Полученный массив');
for i:=1 to n3 do begin
gotoxy(i*4,6);
write(mas3[i]);
end;
end;
begin
vvod;
clrscr;
obrabotka;
vivod;
end.