oraclemax_seq_calc-创新互联

DECLARE

  TYPE seq_st_tt IS TABLE OF INT;

  seq_st seq_st_tt := seq_st_tt(20,-10,-5,-3,5,4,-2,7,40);

  tmpsum INT := 0;

  maxval INT :=seq_st(1);

  spos INT := 1;

  epos INT := 1;

  nspos INT := 1;

  nepos INT := 1;

BEGIN

  FOR i IN 1..seq_st.count LOOP

   tmpsum := tmpsum + seq_st(i);

   IF(tmpsum < 0) THEN

     nspos := i + 1;

     nepos := i + 1;

     tmpsum := 0;

   ELSIF(tmpsum >= maxval) THEN

     spos := nspos;

     epos := nepos;

     nepos := nepos + 1;

     maxval := tmpsum;

   ELSE

     nepos := nepos + 1;

   END IF;

 END LOOP;

 dbms_output.put_line('the max linear sequence from '||spos||' to '||epos||' is '||maxval);

END;

另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。