Viết chương trình nhập vào hai mảng A , B gồm N số nguyên ( N < = 100 ) . Tạo mảng C cũng gồm N phần tử , với giá trị các phần tử như sau : C [ i ] = A [ i ] + B [ i ] . Xuất giâ trị của mảng C ra màn hình

program ct;

uses crt;

var A,B,C:array[1..100] of integer;

      i,n:integer;

begin clrscr;

   write('Nhap so phan tu: '); readln(n);

   for i:=1 to n do

     begin

        write('Nhap phan tu thu ',i,' mang A: '); readln(A[i]);

     end;

   for i:=1 to n do

     begin

        write('Nhap phan tu thu ',i,' mang B: '); readln(B[i]);

     end;

   writeln('Mang C la: ');

   for i:=1 to n do

     begin

        C[i]:=A[i]+B[i];

        write(C[i]:3);

     end;

readln;

end.

Học tốt!

uses crt;

var A, B, C : array [1 .. 100] of integer;

i, N : integer;

begin

clrscr;

write('Nhap so phan tu N = '); readln(N);

write('Nhap mang A gom ', N ,' so = ');

for i := 1 to N do read(A[i]);

write('Nhap mang B gom ', N ,' so = ');

for i := 1 to N do read(B[i]);

for i := 1 to N do C[i] := A[i] + B[i];

write('Cac phan tu mang C : ');

for i := 1 to N do write(C[i],'   ');

readln

end.