Tạo một mảng A gồm n phần tử được tạo ngẫu nhiên trong khoảng -100 đến 100. Nhập từ bàn phím số z, hãy tìm phần tử sao cho trị tuyệt đối của số đó và z là lớn nhất.

uses crt;
type tlist = array[1..1000] of longint;
var i,n,m,kq,z:longint;
    a,b:tlist;
function max(b:tlist):longint;
begin
        m:=-maxlongint;
        for i:=1 to n do
                if b[i] > m then
                        begin
                                m:=b[i];
                                kq:=i;
                        end;
        exit(kq);
end;
begin
        write('Nhap z: '); read(z);
        clrscr;
        write('Nhap n: '); read(n);
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu',i,' :');
                        read(a[i]);
                        clrscr;
                end;
        for i:= 1 to n do
                begin
                        b[i]:=abs(a[i]-z);
                end;
        write('Phan tu can tim la: ',a[max(b)]);
end.