Выполнить действия над массивами. Заполнить Y нечетными элементами массива Х — Basic(Бейсик)

INPUT "vvedite N ", n
DIM x(n),y(n)
RANDOMIZE TIMER
FOR i = 1 TO n
x(i) = INT(RND * 10)+1
NEXT
PRINT "massiv x"
FOR i = 1 TO n
PRINT x(i);
NEXT
FOR i=1 TO n
IF x(i) MOD 2<>0 THEN k=k+1:y(k)=x(i)
NEXT
PRINT
PRINT "massiv y"
FOR i = 1 TO k
PRINT y(i);
NEXT

Leave a Comment