Ai giúp em chuyển bài code pascal này sang C++ với ạ.
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.
Em cảm ơn
Loga
Sinh Học lớp 12
