Program Tao_mang;
Uses crt;
Var A: array[1..10000] of longint;
n,z,i,min,vt: longint;
Begin
Clrscr;
Write('Nhap so n, z: '); Readln(n,z);
Write('Mang tao ngau nhien: ');
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(101) - Random(101);
Write(A[i],' ');
End;
End;
min:=abs(A[1]-z); vt:=1;
For i:=1 to n do
If (abs(A[i])-z)<min then
Begin
min:=abs(A[i]-z);
vt:=i;
End;
Writeln;
Write('Ket qua: ',A[vt]);
Readln;
Readln
End.