Bạn chỉ cần cho kiểu dữ liệu của n là longint nếu cần lớn hơn có thể để kiểu dữ liệu int64. Còn code hash table thì cần bài của bạn mình mới sửa code được.
* Nếu không hài lòng với câu trả lời bạn có thể bảo mk và mk sửa lại ! Chúc bạn học tốt ! :))))) *
uses crt; var f:text; n,i,j,l,h,s:longint; a:array[1..1000000]of longint; begin clrscr; readln(n); for i:=1 to n do read(a[i]); readln; for i:=1 to n do begin s:=0; for j:=i to n do begin inc(s,a[j]); if (s=0)and(j-i+1>h-l+1) then begin h:=i; l:=j; end; end; end; writeln(h,' ',l); readln end.
