{ На оси Оx заданы N точек с координатами x1,x2,...,xn. Найти такую точку Z сумма расстояний от которой до данных точек минимальная. }

uses crt;
var d,i,j,m : longint;
a : array [1..100] of longint;
begin
clrscr;
write('Введите кол-во точек:');
readln(D);
for i:=1 to D do
begin
write('x',i,'=');readln(a[i]);
end;
for i:=1 to D-1 do
for j:=i+1 to D do
if a[i]>a[j] then begin
                m:=a[i];
            a[i]:=a[j];
            a[j]:=m;
        end;
  if d mod 2=0
then write('Z между ',a[d div 2],
' и ',a[d div 2+1])
else write('Z=',a[d div 2+1]);
readln;
end.