uses crt;
type kmang=array[0..255] of integer;
var fi,fo:text;
n,i,k:integer;
a:kmang;
procedure khoitao;
begin
assign(fi,'DOAN.INP');
assign(fo,'DOAN.OUT');
{$I-} reset(fi); {$I+}
if ioresult<>0 then
begin
rewrite(fi);
reset(fi);
end;
readln(fi,n,k);
for i:=1 to n do read(fi,a[i]);
close(fi); rewrite(fo);
end;
procedure xuly;
var j,min,tong,vt:integer;
begin
i:=1; min:=n; vt:=0;
while i<=n do
begin
j:=i; tong:=a[i];
while (tong<k) and (j<=n) do
begin
inc(j);
tong:=tong+a[j];
end;
if (tong=k) and (j-i+1<min) then
begin
min:=j-i+1;
vt:=i;
end;
inc(i);
end;
if vt<>0 then write(fo,vt,' ',min)
else write(fo,'0 0');
end;
BEGIN
khoitao; xuly;
close(fo);
END.
Cho mình ctlhn nha.
