Ý 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.