比赛代码 - COGS

比赛	20100919	评测结果	AWWWWWWTT
题目名称	化装晚会	最终得分	11
用户昵称	gragon	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2010-09-19 11:36:50

显示代码纯文本

program ex;
var
a:array[1..2000] of longint;
m,x,s,i,j,n:longint;
begin
assign(input,'costume.in');
reset(input);
readln(n,s);
for i:=1 to n do
readln(a[i]);
close(input);
m:=0;x:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
m:=i+j;
if m<s then
inc(x);
end;
assign(output,'costume.out');
rewrite(output);
writeln(x);
close(output);
end.