Дан массив A1,…,A20. Построить новый массив B1,…,B20, у которых вначале все положительные A, а затем все отрицательные. — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CLS
n = 20
DIM a(n): DIM b(n)
RANDOMIZE TIMER
FOR i = 1 TO n
    a(i) = INT(RND * 100) - 50
NEXT i
PRINT "Massiv a(20)"
FOR i = 1 TO n
    PRINT a(i);
NEXT i
PRINT
k = 0
FOR i = 1 TO n
    IF a(i) > 0 THEN k = k + 1: b(k) = a(i)
NEXT i
s = k: k = 0
FOR i = 1 TO n
    IF a(i) < 0 THEN k = k + 1: b(k + s) = a(i)
NEXT i
PRINT "Massiv B(20)"
FOR i = 1 TO n
    PRINT b(i);
NEXT i

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

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

Leave a Comment