比赛 20120708 评测结果 WWWWWWWWWW
题目名称 项链制作 最终得分 0
用户昵称 zhangchi 运行时间 0.003 s
代码语言 Pascal 内存使用 0.28 MiB
提交时间 2012-07-08 11:47:12
显示代码纯文本
const
  mm=1000000007;
var
  n,i,j,tot:longint;
  ans:int64;
  a:array[1..10000] of int64;
  c:array[1..100,1..100] of longint;
begin
  assign(input,'necklacemn.in'); reset(input);
  assign(output,'necklacemn.out'); rewrite(output);
  readln(n);
  for i:=1 to n do
    for j:=1 to n do
      read(c[i,j]);
  for i:=1 to n do
    for j:=i+1 to n do
      begin
        inc(tot);
        a[tot]:=c[i,j];
      end;
  ans:=1;
  for i:=1 to tot do
    ans:=ans*(a[i]+1) mod mm;
  for i:=1 to tot do
    ans:=ans-a[i];
  ans:=ans-1;
  ans:=(ans+mm) mod mm;
  writeln(ans);
  close(input); close(output);
end.