program SEQ11;

var n,k,s,dem,max:qword;

a:array[1..10000000] of qword;

i,j:longint;

begin

readln(n,k);

for i := 1 to n do read(a[i]);

max := 0; i := 1;

repeat 

s := 0;

dem := 0;

for j := i to n do 

begin 

s := s+a[j];

inc(dem);

if s mod k = 0 then 

if max < dem then max := dem;

end;

inc(i);

until i = n;

write(max);

end.