Cho 2 dãy số gồm A và B số nguyên hãy ghép 2 mảng thành mảng C

0 bình luận về “Cho 2 dãy số gồm A và B số nguyên hãy ghép 2 mảng thành mảng C”

1. Ý của mình là tính tổng 2 mảng để được mảng mới nha!

   Còn ý 2 ở dưới là ghép 2 mảng thành 1 mảng gồm tất cả các số của 2 mảng nha!

   program ghepmang;

   uses crt;

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

         n,i:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu cua tat ca mang: ‘);  readln(n);

   writeln(‘Nhap tung phan tu cua mang A’);

   for i:=1 to n do

    begin

     write(‘A[‘,i,’]= ‘);

     readln(A[i]);

    end;

   writeln(‘Nhap tung phan tu cua mang B’);

   for i:=1 to n do

    begin

     write(‘B[‘,i,’]= ‘);

     readln(B[i]);

    end;

   writeln(‘Day C moi tao thanh tu tong cua 2 mang A va B la: ‘);

   for i:=1 to n do

    begin

     C[i]:=A[i]+B[i];

     write(C[i],’ ‘);

    end;

   readln

   end.

   +Ý 2

   program ghep;

   uses crt;

   var A,B,C:array[1..1000] of integer;

         n,i,m,d:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu cua mang A: ‘);   readln(n);

   writeln(‘Nhap tung phan tu cua mang A’);

   d:=0;

   for i:=1 to n do

    begin

     write(‘A[‘,i,’]= ‘);

     readln(A[i]);

     inc(d);

      C[d]:=A[i];

    end;

   write(‘Nhap so luong phan tu cua mang B: ‘);  readln(m);

   writeln(‘NHAP TUNG PHAN TU CUA MANG B’);

   for i:=1 to m do

    begin

      write(‘B[‘,i,’]= ‘);

     readln(B[i]);

     inc(d);

     C[d]:=B[i];

    end;

   writeln(‘Day C duoc tao thanh la: ‘);

   for i:=1 to d do

    write(c[i],’ ‘);

   readln

   end.

   Bình luận