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