Cho dãy gồm N số (N <100000) .Hãy tìm dãy con liên tục dài nhất có tổng bằng 0. in ra số phần tử dãy con và dãy con tìm được

var a,s:array[0..100] of integer; n,i,j,max,vt:integer; begin write('N=');readln(n); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); inc(s[i],s[i-1]+a[i]); end; for i:=1 to n do for j:=0 to i-1 do if (s[i]-s[j]=0) and (i-j>max) then begin max:=i-j; vt:=j; end; for i:=vt+1 to max+vt do write(a[i],' '); readln; end.