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