测评机： 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.