1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | INPUT "vvedite kolichestvo elementov n=", NDIM a(N), s(N)RANDOMIZE TIMERPRINT "posledovatelnost"FOR i = 1 TO N a(i) = INT(RND * 20) - 10 PRINT a(i); " ";NEXTPRINTFOR i = 1 TO N IF a(i) < 0 THEN k = k + 1 ELSE s(k) = s(k) + 1NEXTFOR i = 1 TO k - 1 IF s(i) > max THEN max = s(i)NEXTPRINT "maximalnoe kolichestvo poloj="; max |
Тестирование выполнено в программе QB64 ( Скачать )