vì sao kết quả trong pascal lại phải có độ rộng để làm gì
1 câu trả lời
uses crt;
var a,b:array[0..1000000] of longint;
i,n,m:longint;
begin
clrscr;
write('Nhap do dai cho 2 mang: ');
readln(n,m);
write('Nhap mang a: ');
for i:=1 to n do read(a[i]);
write('Nhap mang b: ');
for i:=1 to m do read(b[i]);
for i:=1 to n do b[i+m]:=a[i];
write('Mang b sau khi duoc ghep: ');
for i:=1 to n+m do write(b[i],' ');
readln;readln;
end.
