01/10/2018, 09:59

Dãy con liên tiếp dài nhất có tổng bằng 0

cho dãy gồm N(N<=10000)số a1,a2,…,aN.hãy tìm dãy con liên tiếp dài có tổng nhất bằng 0

Mai Hữu viết 12:06 ngày 01/10/2018
  • Hỏi không đầu không đuôi
  • Không có code
  • Không nói mình bị mắc ở đâu
  • Không có đề bài
    ==> Ai trả lời cho bạn hả
*grab popcorn* viết 12:15 ngày 01/10/2018
ai giải thích giùm mình cái code này với ạ:v đề là cho dãy gồm N(N<=10000)số a1,a2,...,aN.hãy tìm dãy con liên tiếp dài có tổng nhất bằng 0 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.
Bài liên quan
0