xyy 2013-04-13 22:16:00
点我顶贴
收藏
删除
状态: Unaccepted
测评机： Xeost[5]
得分： 70分
提交日期： 2013-4-13 16:23:00
有效耗时： 2593毫秒
测试结果1: 通过本测试点|有效耗时204ms
测试结果2: 通过本测试点|有效耗时62ms
测试结果3: 通过本测试点|有效耗时766ms
测试结果4: 通过本测试点|有效耗时218ms
测试结果5: 选手程序运行超过时限
测试结果6:
测试结果7:
测试结果8: 通过本测试点|有效耗时750ms
测试结果9: 通过本测试点|有效耗时422ms
测试结果10: 通过本测试点|有效耗时171ms
var
x,y:array[1..1000]of longint;
a,b,s,max:longint;
c:int64;
n,i,j,k:longint;
begin
readln(n);
for i:=1 to n do readln(x[i],y[i]);
max:=0;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
s:=0;
a:=x[j]-x[i];
b:=y[i]-y[j];
c:=x[i]*y[j]-x[j]*y[i];
for k:=1 to n do
begin
if a*y[k]+b*x[k]+c=0 then
begin
inc(s);
end;
end;
if s>max then max:=s;
end;
end;
writeln(max);
end.