Question

Cho dãy A,B gồm n phần tử a₁...a_n, b₁...b_n. Tạo mảng C sao cho : C[i] = A[i] + B[i]

Answer 1

uses crt;
var n,i:integer;
a,b,c:array[1..100]of integer;
begin
clrscr;
write('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;
for i:=1 to n do
c[i]:=a[i]+b[i];
for i:=1 to n do
write(c[i]:4);
readln;
end.

Answer 2

uses crt;
var n,i:integer;
a,b,c: array [1..100] of integer;
begin
clrscr;
write('So phan tu cua day: ');readln(n);
for i:= 1 to n do
begin
write('Phan tu ',i,' cua day a: ');
readln(a[i]);
end;
writeln;
for i:= 1 to n do
begin
write('Phan tu ',i,' cua day b: ');
readln(b[i]);
end;
for i:= 1 to n do
c[i]:= a[i] + b[i];
writeln('Mang C:');
for i:= 1 to n do
write(c[i],' ');
readln
end.