洛谷 P1566 加等式

洛谷 P1566 加等式

---

题目

题目描述

对于一个整数集合，我们定义“加等式”如下：集合中的某一个元素可以表示成集合内其他元素之和。如集合{1,2,3}中就有一个加等式：3＝1+2，而且3＝1+2 和3＝2+1是相同的加等式，也是这个集合唯一的加等式。给定一个整数集合，编程找出其所有的加等式的个数

输入输出格式

输入格式：
第一行为t，表示测试数据组数。(1≤t≤10)；

接下来t 行，每行表示一组测试数据。其中第一个数m（1≤m≤30），表示集合元素的个数，接下来m 个不同的整数x 分别表示集合元素（1≤m≤1000）。

输出格式：
对于每个输入数据，输出一个整数，表示其中加等式的个数。

输入输出样例

输入样例#1：

3
3 1 2 3
3 1 2 5
6 1 2 3 5 4 6

输出样例#1：

1
0
7

---

题解

刷t遍背包就好了

---

代码（Pascal）

var t,n,maxm,i,ans:longint;
    x:array[0..35]of longint;
    opt:array[0..1005]of longint;
    vis:array[0..1005]of boolean;
 function max(x,y:longint):longint;
  begin
    if x>y then exit(x) else exit(y);
   end;
 procedure init;
  var i:longint;
   begin
     read(n);
     for i:=1 to n do
      begin
        read(x[i]);
        maxm:=max(maxm,x[i]);
       end;
     readln;
    end;
 procedure main;
  var i,j:longint;
   begin
     fillchar(opt,sizeof(opt),0);
     fillchar(vis,sizeof(vis),0);
     vis[0]:=true;ans:=0;opt[0]:=1;
     for i:=1 to n do
      for j:=maxm downto 0 do
       if (vis[j]=true)and(j+x[i]<=maxm) then
        begin
          vis[j+x[i]]:=true;
          opt[j+x[i]]:=opt[j+x[i]]+opt[j];
         end;
     for i:=1 to n do
      ans:=ans+opt[x[i]]-1;
    end;
 procedure print;
  begin
    writeln(ans);
   end;
 begin
   readln(t);
   for i:=1 to t do
    begin
      init;
      main;
      print;
     end;
  end.