Question

Даны координаты n (n < 30) точек на плоскости: (Х1, У1), ..., (Xn, Yn). Найти номера пары точек, расстояние между которыми наибольшее (считать, что такая пара единственная)

Answer 1

var
 t:Array [1..30] of record
                    x,y: integer
                    end;
 r,d:            longint;
 i,j,n,t1,t2:    word;
begin
  write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® в®зҐЄ: ');
  Readln(N);
  for i:=1 to N do
  begin
    write('Љ®®а¤Ё**вл ',i,' в®зЄЁ (• Y): ');
    Readln(t[i].x,t[i].y)
  end;
  r:=0;
  for i:=1 to n-1 do
    for j:=i+1 to n do
    begin
      d:=sqr(t[i].x-t[j].x)+sqr(t[i].y-t[j].y);
      if d>r then
      begin
        r :=d;
        t1:=i;
        t2:=j
      end
    end;
  writeln('Ќ*ЁЎ®«м襥 а*ббв®п*ЁҐ Ґ¦¤г в®зЄ*Ё ',t1,' Ё ',t2);
  readln;
end.