Submission #2448837

---

Source Code Expand

program hrn;
 uses math;
 var
  x,y:array[0..100]of longint;
  n,i,j,p,q,s:longint;
 begin
  read(n);
  for i:=1 to n do read(x[i],y[i]);
  for i:=1 to n-1 do
   for j:=i+1 to n do begin
    p:=abs(x[i]-x[j]);
    q:=abs(y[i]-y[j]);
    s:=max(s,p*p+q*q);
   end;
  write(sqrt(s):0:6);
 end.

Submission Info

Compile Error

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

Judge Result