codevs1006
来源：互联网 发布：c语言入门之后学什么 编辑：程序博客网 时间：2024/06/05 20:06
题目地址：http://codevs.cn/problem/1006/
分析：
冒泡排序+暴力
代码：
var i,j,n,m,max,dx,k:longint;a:array[0..101]of longint;beginread(n);for i:=1 to n doread(a[i]);for i:=1 to n-1 dofor j:=i+1 to n doif a[i]>a[j] then begin m:=a[i];a[i]:=a[j];a[j]:=m;end;for i:=1 to n-1 dofor j:=i+1 to n dobeginm:=0;for k:=j to n dobeginif m=0 thendx:=a[i]-a[j];if (a[i]-(m+1)*dx=a[k]) then inc(m);end;if m>max then max:=m;end;write(max+1);end. 0 0
