Переписать отрицательные элементы массива A(n) в массив B(k) и определить его размер. Результат распечатать в виде- QBasic(Бейсик)

disel
1
2
3
4
5
число элементов
исходный массив
новый массив
отрицательные элементы массива a(n)
число элементов в новом массиве
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
INPUT "vvedite kol-vo elementov ", 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 "ishodnyj massiv"
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
FOR i = 1 TO n
    IF a(i) < 0 THEN k = k + 1: b(k) = a(i)
NEXT
PRINT "novyj massiv"
FOR i = 1 TO k
    PRINT b(i);
NEXT
PRINT
PRINT "chislo elementov v novom massive="; k

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment