Viết chương trình: Mảng A: 100 phần tử Mảng B: 100 phần tử Mảng C:=A+B;

*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.

var a,b,c:array [1..100] of real;

      i:byte;

begin

 write('nhap mang a,b');

for i:=1 to 100 do read(a[i]);

for i:=1 to 100 do read(b[i]);

for i:=1 to 100 do begin c[i]:=b[i]+a[i]; write(c[i],' ');

readln; end.