Как вывести не только значение радиуса, но и точки?

Question

[Alertoso]

Как вывести не только значение радиуса, но и точки?

program

program Project2;
{$APPTYPE CONSOLE}
Type
  Telem=record
	X, Y:longint;
  end;
  ArrType = array[1..100] of telem;

Function MaxR(TX,TY:longint; A:arrType; n:word):Extended;
var
  R:Extended;
  i:longint;
Begin
  r:=0;
  for i:=1 to n do begin
	If r<SQRT(SQR(a[i].X-TX)+SQR(a[i].y-ty)) then
	  r:=SQRT(SQR(a[i].X-TX)+SQR(a[i].y-ty));
  end;
  Result:=R;
    writeln(a[i].X);
end;

Var
  Arr:ArrType;
  Tx,Ty,n,i,j,SuperX,SuperY:longint;
  EnterB:boolean; NK:byte; TRR:Extended;
begin
  for i:=1 to 10 do
  begin
    readln(arr[i].X);
    readln(arr[i].Y);
  end;
  TRR:=MaxR(1,1,arr,10);

  {ïîèñê òî÷êè, ìàêñèìàëüíîå ðàññòîÿíèå äî îñòàëüíûõ â êîòîðîé ìèíèìàëüíî}
  For i:=1 to 10 do
	For j:=1 to 10 do begin
	  If MaxR(i,j,Arr,10)<TRR then
    begin
		SuperX:=i;
    SuperY:=j;
    writeln(SuperX);
  writeln(SuperY);
    TRR:=MaxR(i,j,Arr,10);
	  end
	end;
  TRR:=MaxR(i,j,Arr,10);
  writeln(TRR:0:8);
  readln;
end.

Comments

[Andrey Dugin]

Форматирование кода отсутствует

[Fenrir89]

Ну он только учится, для начала не плохо, помарки есть не спорю

[Hemul GM]

Какой точки? Ты хоть объясни, что за задача, решение которой ты стащил из сети.

[Alertoso]

На плоскости расположено 10 точек, которые заданы своими координатами. Найти на оси абсцисс точку, наибольшее из расстояний от которой до выбранных точек было бы минимальным. Я уже реализовал через точность сам, но надо хотя бы пару реализаций(

[Alertoso]

Alertoso, ну не точки, а точку(x,0)

[Fenrir89]

Alertoso, боюсь с таким вопросом скорее в математический хаб, а не в сюда, реализацию формул сам должен осилить, иначе какой из тебя программист получится.

[Alertoso]

Fenrir89, я уже разобрался, когда ехал в маршрутке, можете подсказать сложность алгоритма? Она ведь n^2?

[Alertoso]

Fenrir89, я уже разобрался, когда ехал в маршрутке(время появилось), подскажите только одну вещь, сложность данного алгоритма ведь n^2?