VCT: khai báo biến mảng gồm 20 phân tử Biến ( ) Thân CT Nhập giá trị cho biến mảng gồm n phân tử ( nhập từ bàn phím ) Tính tổng của phân

0 bình luận về “VCT: khai báo biến mảng gồm 20 phân tử Biến ( ) Thân CT Nhập giá trị cho biến mảng gồm n phân tử ( nhập từ bàn phím ) Tính tổng của phân”

1. var a: array[1..20] of integer;  

         n, i: byte;

         s: longint;

   Begin

       Write(‘n = ‘); readln(n);

       For i:=1 to n do

           Begin

                Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

           End;

        S:=a[1] + a[n];

        Write(‘tong: ‘, s);

        Readln

   End.

   Bình luận

2. program bai_tap;

   uses crt;

   var A:array[1..20] of integer;

        n,i:byte;

        t:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          for i:=1 to n do

                begin

                      write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                end;

          if n=1 then t:=A[1] else t:=A[1]+A[n];

          write(‘Tong phan tu dau va phan tu cuoi la: ‘,t);

          readln;

   end.

   Bình luận