*Không có dấu cách ở giữa
program mat_khau;
uses crt;
var A,B:array[1..10000] of integer;
n,i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
for i:=1 to n do
begin
write('B[',i,']= '); readln(B[i]);
end;
write('Mat khau cua ban a: ');
for i:=1 to n do write(A[i],' ');
writeln;
write('Mau khau cua ban b: ');
for i:=1 to n do write(B[i],' ');
writeln;
write('--> Mat khau chung: ');
for i:=1 to n do write(B[i],A[i]);
readln;
end.
*Có dấu cách ở giữa như trong đề
program mat_khau;
uses crt;
var A,B:array[1..10000] of integer;
n,i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
for i:=1 to n do
begin
write('B[',i,']= '); readln(B[i]);
end;
write('Mat khau cua ban a: ');
for i:=1 to n do write(A[i],' ');
writeln;
write('Mau khau cua ban b: ');
for i:=1 to n do write(B[i],' ');
writeln;
write('--> Mat khau chung: ');
for i:=1 to n do
begin
write(B[i],A[i]);
if i=n div 2 then write(' ');
end;
readln;
end.