Написать программу, которая находит такую точку z(x,y), сумма расстояний от которой до остальных минимальна

[n00bik]

На двумерной плоскости задано N точек с координатами (X1,Y1), (X2,Y2)... ,(Xn,Yn).
Написать программу, которая находит такую точку z(x,y), сумма расстояний от которой до остальных минимальна и а)Z- одна из заданных точек;
b) Z- произвольная точка плоскости

[n00bik]

я почитал, вроде метод пнребора тут, но я не догоняю ((

[Mad_Cat]

А) вычислить все суммы расстояний, а затем взять среди них минимальную.
В) Z есть центр масс системы из N точек Zx=(x1+ ... +xN)/N Zy=(y1+ ... +yN)/N

uses crt;
var x,y:array[1..100] of real;
Zx,Zy:real;
i,j,n,zn:integer;
smin,sbuf:real;
function Rast(x1,x2,y1,y2:real):real;
begin
rast:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('x',i,'=');readln(x[i]);
write('y',i,'=');readln(y[i]);
end;
smin:=99999;zn:=0;
for i:=1 to n do
begin
sbuf:=0;
for j:=1 to n do
sbuf:=sbuf+rast(x[j],x[i],y[j],y[i]);
if sbuf<smin then begin zn:=i; smin:=sbuf;end;
end;
writeln('a) point [',x[zn],',',y[zn],']');
for i:=1 to n do begin
zx:=zx+x[i];
zy:=zy+y[i]; end;
writeln('b) point [',zx/n,',',zy/n,']');
readln;
end.

[n00bik]

уже отблагодарил))