khai báo một mảng số nguyên B có kích thước 200, a) nhập số phần tử cho mảng , b) phát sinh ngẫu nhiên gtrị cho các phần tử mảng B , c) in B ra màn

program mang;

uses crt.

var B:array [1..200] of integer;

      n,i,T: integer;

Begin

         clrscr;

         write(‘a) Nhap so phan tu: ‘); readln(n);

         writeln(‘b) Nhap gtri cho cac phan tu: ‘);

         for i:=1 to n do

         begin

                  write(‘B[‘,i,’]=’); readln(B[i]);

         end;

         write(‘c) Mang vua nhap la: ‘);

         for i:=1 to n do

         begin

                  write(B[i],’  ‘);

                  if i mod 2<>0 then T:=T+B[i];

         end;

         writeln;

         write(‘d) Tong cac phan tu o vi tri le = ‘,T);

         readln

End.