Cho n điểm trên mặt phẳng tọa độ. Hãy tìm bán kính nhỏ nhất của hình tròn chứa n điểm
này (một số điểm có thể nằm trên biên).
Input:
+Dòng 1 ghi n (n ≤100)
+n dòng tiêp theo, dòng thứ i ghi hai số nguyên xi, yi thể hiện tọa độ của một điểm
Output:
Một số thực với 3 chữ số phần thập phân là kết quả cần tìm
uses crt;
var d,g:text; m,s:real; x,y:array[1..10000000]of longint;
n,i,j,vt:longint;
begin
clrscr;
assign(d,’input.pas’);reset(d);
assign(g,’output.pas’);rewrite(g);
readln(d,n);
for i:=1 to n do read(d,x[i],y[i]);
for i:=1 to n do
begin
s:=0;
for j:=1 to n do s:=s+sqrt(sqr(x[j]-x[i])+sqr(y[j]-y[i]));
if s>m then begin vt:=i; m:=s; end;
end;
writeln(g,vt,’ ‘,m:0:3);
close(g);
close(d);
end.