1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | INPUT "vvedite kolichestvo elementov n=",N DIM a(n),s(n) RANDOMIZE TIMER PRINT"posledovatelnost" FOR i= 1 TO n a(i)=INT(RND* 20 )- 10 PRINT a(i);" "; NEXT PRINT FOR i= 1 TO n IF a(i)< 0 THEN k=k+ 1 ELSE s(k)=s(k)+ 1 NEXT FOR i= 1 TO k- 1 IF s(i)>max THEN max=s(i) NEXT PRINT "maximalnoe kolichestvo poloj=";max |