| 比赛 | 20100919 | 评测结果 | AAAAAATTT |
|---|---|---|---|
| 题目名称 | 化装晚会 | 最终得分 | 66 |
| 用户昵称 | 1102 | 运行时间 | 0.000 s |
| 代码语言 | Pascal | 内存使用 | 0.00 MiB |
| 提交时间 | 2010-09-19 11:43:32 | ||
program xxxx;
var n,s,i,x,j:longint;
a:array[1..20000] of longint;
begin
assign(input,'costume.in');
reset(input);
assign(output,'costume.out');
rewrite(output);
read(n,s);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]+a[j]<=s then
inc(x);
write(x);
close(input);
close(output);
end.