1032.pas

平时acm训练时ac的源代码

program cgp;
var n,i,j,t:integer;
    a,s:array[0..10000]of 0..15000;
begin
     read(n);fillchar(a,sizeof(a),0);fillchar(s,sizeof(s),0);
     for i:=1 to n do begin
     read(a[i]);
     s[i]:=(a[i]+s[i-1])mod n;
     if s[i]=0 then begin writeln(i);for j:=1 to i do writeln(a
[j]);halt;end;
     end;
     for i:=1 to n-1 do
         for j:=i+1 to n do
         if s[i]=s[j] then begin
     writeln(j-i);
     for t:=i+1 to j do writeln(a[t]);halt;end;
end.