*Theo đề của đề
program mang_C;
uses crt;
var A,B,C:array[1..100] of integer;
i:integer;
begin
clrscr;
for i:=1 to 100 do
begin
write('A[',i,']= '); readln(A[i]);
end;
for i:=1 to 100 do
begin
write('B[',i,']= '); readln(B[i]);
C[i]:=A[i]+B[i];
end;
for i:=1 to 100 do
write(C[i],' ');
readln;
end.
*Theo đề của tui
program mang_C;
uses crt;
var A,B,C:array[1..100] of integer;
n,i:byte;
begin
clrscr;
write('Nhap so luong phan tu: '); 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(A[i]);
end;
write('A: ');
for i:=1 to n do
write(A[i]:4);
writeln;
write('B: ');
for i:=1 to n do
write(B[i]:4);
writeln;
write('C: ');
for i:=1 to n do
begin
C[i]:=A+[i]+B[i];
write(C[i]:4);
end;
readln;
end.
