Переписать отрицательные элементы массива а(n) в В(к) и определить его размер
Категория: Basic
2011-11-01 14:54:00
Результат распечатать в виде:
число элементов
исходный массив
новый массив
отрицательные элементы масива а(n)
число элементов в новом массиве
code: #basic
INPUT n DIM a(n),b(n) RANDOMIZE TIMER FOR i=1 TO n a(i)=INT(RND*20)-10 NEXT PRINT"chislo elementov=";n PRINT"massiv" FOR i=1 TO n PRINT a(i);" "; NEXT FOR i=1 TO n IF a(i)<0 THEN k=k+1:b(k)=a(i) NEXT PRINT PRINT"novyj massiv" FOR i=1 TO k PRINT b(i);" "; NEXT PRINT PRINT"chislo elementov=";k
автор: кот Бегемот
Поделиться: