Одномерный массив.

[Dmitrij]

Дано множество A из N точек. Найти такую точку из данного множества, сумма расстояний от которой до остальных его точек минимальна, максимальна и саму эту сумму.

[alex_fcsm]

uses crt;
const n=10;
type TP=record
      x,y,sum:real;
     end;
var i,max,min,j:integer;
    a:array[1..n] of TP;
begin
clrscr;
randomize;
for i:=1 to 10 do
 begin
  a[i].x:=random(4)+1;
  a[i].y:=random(5)+1;
 end;
for i:=1 to n do
begin
a[i].sum:=0;
 for j:=1 to n do
  a[i].sum:=a[i].sum+sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].y-a[j].y));
end;
max:=1;min:=1;
for i:=2 to n do
 if a[i].sum>a[max].sum then max:=i
    else if a[i].sum<min then min:=i;
    write('X:');
for i:=1 to n do
 write(a[i].x:4:1);
 writeln;
 write('Y:');
 for i:=1 to n do
 write(a[i].y:4:1);
 writeln;
writeln('Number of point with max sum:',max);
writeln('MaxSum:',a[max].sum:4:2);
writeln('MinSum:',a[min].sum:4:2);
end.