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.

uses crt;

var a : array[1..100] of integer; i, N, k : integer;

begin

clrscr; randomize;

write('Nhap so phan tu : '); readln(N);

if N mod 2 <> 0

then k := (N div 2) + 1 else k := N div 2;

for i := 1 to N do

begin

a[i] := random(200) - random(200);

writeln('Phan tu thu ', i ,' : ', a[i]);

end;

write('Nửa đầu mảng : ');

for i := 1 to k do write(a[i],'  ');

writeln; write('Nửa cuối mảng : ');

for i := k to N do write(a[i],'  ');

readln

end.