3
1
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
2377
1794
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin