Submission #3181942

---

Source Code Expand

var
    x,y:array[0..1000] of longint;
    n,i,j:longint;
    ans:real;

begin
    readln(n);
    for i := 1 to n do
    begin
        readln(x[i],y[i]);
        for j := 1 to i - 1 do
            if sqr(x[i] - x[j]) + sqr(y[i] - y[j]) > ans then
                ans := sqr(x[i] - x[j]) + sqr(y[i] - y[j]);
    end;
    writeln(sqrt(ans):0:6);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result