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.