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í

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í”

1. uses crt;
   var a:array[1..20]of longint;
   i,n,s:longint;
   begin
   clrscr;
      write(‘Nhap so phan tu: ‘);readln(n);
      for i:=1 to n do
         begin
            write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
         end;
      s:=a[1]+a[n];
      writeln(‘Tong cua phan tu dau va phan tu cuoi: ‘,s);
   readln;
   end.

   Bình luận

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