Tin học dãy con

[Thủy Ling]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

nhờ mọi người ạ.

..................................................................................................................................................................
@Trâm Nguyễn Thị Ngọc

 

[nguyen tran thanh nha]

var n,k,i,max,d,j,t:longint;
    a:array[1..100000] of longint;
    f,g:text;
begin
      assign(f,'bai4.inp');reset(f);
      assign(g,'bai4.out');rewrite(g);
      readln(f,n,k);
      for i:= 1 to n do read(f,a[i]);
      max:=0;
      for i:= 1 to n do
      begin
           d:=0;t:=0;
           for j:=i to n do
           begin
                 t:= t+a[j];
                 d:=d+1;
                 if (t mod k=0 )and(max<d) then max:=d;
           end;
       end;
       write(g,max);
       close(f);
       close(g);
end.