Question

Viết chương trình cho phép trộn hai dãy số A và B cùng có số phần tử là k để được dãy số C theo yêu cầu sau:

A = a1, a2 … ak

B = b1, b2 … bk

 

Được C = a₁, b₁, a₂, b₂ … a_k, b_k.

Answer 1

Program Tron_day;

 

uses crt;

type kieu_mang =  array[1..100] of integer;

var A, B, C: Kieu_mang;

n,i,j: integer;

Procedure Nhap_Mang(Var X: Kieu_mang; n:byte);

var i:integer;

begin

for i:=1 to n do

begin

write(‘M[‘,i,’]=’);readln(X[i]);

end;

end;

Procedure In_Mang(X:kieu_mang; n:byte);

var i: byte;

begin

for i:=1 to n do write(x[i],’, ‘);

end;

{———–}

begin

clrscr;

write(‘Nhap so phan tu cua day: ‘);read(n);

Nhap_mang(A,n);

Nhap_mang(B,n);

i:=1;

j:=1;

while i<= n do</p>

begin

C[j]:=  A[i];

C[j+1]:=B[i];

j:=j+2;

i:=i+1;

end;

in_mang(C,2*n);

readln

end.

Answer 2

program tron;

var         A,B,C:array[1..100] of integer;i,i1,k:integer;

begin

              write('moi ban nhap k:');readln(k);

              for i:=1 to k do readln(A[i]);

              for i:=1 to k do readln(B[i]);

              i:=0;i1:=0;

              while i