Переписать отрицательные элементы массива а(n) в В(к) и определить его размер — Basic(Бейсик)

disel

Результат распечатать в виде:
число элементов
исходный массив
новый массив
отрицательные элементы масива а(n)
число элементов в новом массиве

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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

Похожие записи/страницы:

Leave a Comment