记录编号	22467	评测结果	AAAAWTWWTW
题目名称	求和	最终得分	40
用户昵称	donny	是否通过	未通过
代码语言	Pascal	运行时间	9.350 s
提交时间	2010-11-19 14:28:37	内存使用	0.49 MiB

program suma;
var
  k,p,i,j,l:longint;
  a:array[0..100000]of longint;
  n,m:longint;
  ans:longint;
begin
  assign(input,'suma.in');
  reset(input);
  assign(output,'suma.out');
  rewrite(output);
  readln(n,k,p);
  a[0]:=0;
  ans:=maxlongint;
  for i:=1 to n do
  begin
    readln(a[i]);
    a[i]:=a[i]+a[i-1];
  end;
  ans:=99999999;
  randomize;
  for i:=1 to 3800000 do
  begin
    j:=random(n)+1;
    l:=random(n)+1;
    if j>l then
    begin
      j:=j+l;
      l:=j-l;
      j:=j-l;
    end;
    m:=(a[l]-a[j-1])mod p;
    if m>=k then
      if m<ans then ans:=m;
  end;
  writeln(ans);
  close(input);
  close(output);
end.