比赛代码 - COGS

比赛	20120707	评测结果	WWWWWWWWWW
题目名称	奇怪的棋盘	最终得分	0
用户昵称	fuhao	运行时间	0.003 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2012-07-07 11:43:33

显示代码纯文本

const maxn=500; yu=1000000007;
var
 h:array[0..maxn] of int64; ans:int64;
 n,k,i:longint;
begin
 assign(input,'boarda.in'); reset(input);
 assign(output,'boarda.out'); rewrite(output);
 readln(n,k);
 ans:=1;
 for i:=1 to n do
  begin
   read(h[i]);
   if h[i]>h[i-1] then ans:=ans*(h[i]-h[i-1]) mod yu;
  end;
 writeln(ans);
 close(input); close(output);
end.