Question

Nhập mảng A,B cùng phần tử.Cộng các phần tử và đưa vào mảng C. Mn giúp mik cần gấp ạ

Answer 1

uses crt;

var a,b,c:array[1..1000]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

begin

readln(a[i],b[i]);

c[i]:=a[i]+b[i];

end;

for i:=1 to n do write(c[i]:4);

readln;

end.

Answer 2

uses crt;

var a,b,c:array[1..1000]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

begin

readln(a[i],b[i]);

c[i]:=a[i]+b[i];

end;

for i:=1 to n do write(c[i]:4);

readln;

end.