1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | INPUT "vvedite kolichestvo elementov ", n DIM x(n), y(n), z(n) RANDOMIZE TIMER FOR i = 1 TO n x(i) = INT(RND * 20 ) - 10 NEXT PRINT "massiv x" FOR i = 1 TO n PRINT x(i); NEXT PRINT FOR i = 1 TO n IF x(i) > 0 THEN k = k + 1 : y(k) = x(i) ELSE IF x(i) < 0 THEN m = m + 1 : z(m) = x(i) NEXT PRINT "massiv y" FOR i = 1 TO k PRINT y(i); NEXT PRINT PRINT "massiv z" FOR i = 1 TO m PRINT z(i); NEXT |