Задача про определение столицы.

[dima2308]

Была выдана задача (условие ниже на изображении):
Разбирали с преподавателем нескольку иную задачу:
Входные данные:
В первой строке входного потока два числа, разделенных пробелом - размеры царства (целые числа M - число столбцов и N - число строк в интервале от 1 до 50, на которые размечено королевство)
Во второй строке - количество существующих городов S (0 < S <= 100)
В следующих S строках, записано по два числа - X, Y, разделенных пробелом - координаты существующих городов.
Выходные данные:
Минимальное среднее расстояние от новой столицы до всех остальных городов с точностью до трех знаков после запятой.

var x,y:array[1..1000] of longint;
n,m,i,j,k,s,r:longint;
rez:real;
begin
rez:=100000;
readln(m,n);
readln(s);
for i:=1 to s do
read(x[i],y[i]);
for i:=1 to m do
for j:=1 to n do
begin
k:=0;
for r:=1 to s do
k:=k+abs(i-x[r])+abs(j-y[r]);
if k/s<rez then rez:=r/s;
end;
writeln(rez);
end.

Но как переделать в данную мне не понимаю.
Буду рад любой помощи.

[Aleksandr H.]

Где примеры входных/выходных данных?

[dima2308]

Сообщение от Aleksandr H.

Где примеры входных/выходных данных?

Объяснили так:
на вход подаем
4
0 0
1 1
0 1
1 0
на выходе имеем 0 2

[Dekay]

Так и идешь. Только когда res < k/s - res = k/s; X := i, Y := j;

Выводишь X, Y

[dima2308]

Сообщение от Dekay

Так и идешь. Только когда res < k/s - res = k/s; X := i, Y := j;

Выводишь X, Y

Не работает так, я пытался.
Не могу понять, как обойтись без использования m и n (поскольку на вход подается только количество городов и их координаты).

[Dekay]

Значит возьми по максимуму из исходных данных

[dima2308]

var x,y:array[1..1000] of longint;
i,j,k,s,r:longint;
rez:real;
x1,y2:integer;
begin
rez:=100000;
readln(s);
for i:=1 to s do
read(x[i],y[i]);
for i:=1 to 1000 do
for j:=1 to 1000 do
begin
k:=0;
for r:=1 to s do
k:=k+abs(i-x[r])+abs(j-y[r]);
if k/s<rez then
begin
rez:=r/s;
x1:=i;
y1:=j;
end;
writeln(x1,y1);
end.

При любых входных данных на выходе 0 0.

[Dekay]

Rez сделай больше. Намного больше

[dima2308]

Сообщение от Dekay

Rez сделай больше. Намного больше

Да уж чего только не пробовал...
Результат выдает, но неверный.

[Аватар]

for r:=1 to s do
k:=k+abs(i-x[r])+abs(j-y[r]);

Расстояние хитро считаешь. Во-первых расстояние это корень квадратный из суммы квадратов. И i и j это не координаты, а индексы координат. Корень при этом не обязательно извлекать, достаточно найти минимум среднего квадратов расстояний. Да и k не помешает int64 сделать