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;

0 bình luận về “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;”

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

   Bình luận

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

   Bình luận