Question

Viết chương trình tìm đoạn con dài nhất chia hết cho k

Answer 1

const fi='supseq.inp';
fo='supseq.out';
var f1,f2:text;
i,j,n,k,dem,m,max,max2,x:longint;
a:array[1..100]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n,k);
{----------------------------------}
for i:=1 to n do
begin
read(f1,x);
a[i]:=x;
end;
{---------------------------------}
writeln;
max:=0;
dem:=0;
for i:=1 to n do
if (a[i] mod k=0) and (a[i+1] mod k=0) then inc(dem)
else begin
if max<dem then max:=dem;
dem:=0;
end;
if max<dem then max:=dem;
writeln(f2,max);
close(f1);
close(f2);
end.