Viết chương trình tạo mảng ngẫu nhiên a) xuất nửa đầu của mảng b) xuất nửa cuối của mảng

program ngau_nhien;

uses crt;

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

      n,i:integer;

begin

       clrscr;

       repeat

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

              if n mod 2<>0 then

                     begin

                            writeln(‘Phai la so chan’);

                            readln;

                            clrscr;

                     end;

       end;

       randomize;

       for i:=1 to n do

              A[i]:=random(1000);

       writeln(‘a) Nua dau mang la: ‘);

       for i:=1 to n div 2 do write(A[i],’ ‘);

       writeln;

       writeln(‘b) Nua cuoi mang la: ‘);

       for i:=(n div 2)+1 to n do write(A[i],’ ‘);

       readln;

end.