Массив

[KpeHDeJIb]

Даны координаты n-точек на плоскости X[1], Y[1], ... X[n], Y[n], n=20.
Найти номера двух точек, расстояние между которыми наибольшее.
(считать, что такая пара точек единственная)
помогите пожалуйста, хотябы наброски какиенить киньте

[puporev]

1.Записать координаты точек в массив записей.

const n=20;
type Tpoint=record
            x,y:real;
            end;
var a:array[1..n]of Tpoint;
    i,jimax,jmax:integer;
    max:real;

2.Заполнить массив.
3. В двойном цикле найти максимальную длину, использую известную формулу длины отрезка по координатам концов.
Эту формулу можно оформить функцией, можно так.

max:=0;
for i:=1 to n do
for j:=1 to n do
if sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].y-a[j].y))>max  then 
   begin
    max:=sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].y-a[j].y));
    imax:=i; //номера точек
    jmax:=j;
  end;

[_Dmitry]

Чтобы не делать лишних вычислений, цикл можно организовать так:

for i:=1 to n-1 do
  for j:=i+1 to n do