Submission #3327861

---

Source Code Expand

Uses math;
var
	n,i,j:Longint;
	ans,now:double;
	x,y:array[1..100]of double;
begin
	read(n);
	for i:=1 to n do begin
		read(x[i],y[i]);
		for j:=1 to i-1 do begin
			now:=power((x[i]-x[j])*(x[i]-x[j])+(y[i]-y[j])*(y[i]-y[j]),0.5);
			if ans<now then ans:=now;
		end;
	end;
	writeln(ans:0:9);
end.

Submission Info

Compile Error

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

Judge Result