Получить упорядоченную по убыванию последовательность, состоящую из членов данной последовательности, заключенных между первым и последним отрицательным членом данной последовательности — Basic(Бейсик)

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
25
26
INPUT "vvedite kol-vo elementov ryada ", n
DIM a(n)
RANDOMIZE TIMER
FOR i = 1 TO n
a(i) = INT(RND * 50)-20
NEXT
PRINT "ryad "
FOR i = 1 TO n
PRINT a(i);
NEXT
PRINT
FOR i = n TO 1 step-1
IF a(i) <0 THEN n1 = i
NEXT
FOR i = 1 TO n
IF a(i) <0 THEN n2 = i
NEXT
FOR i = n1+1 TO n2-1
FOR j = n1+2 TO n2-1
IF a(j) > a(j - 1) THEN SWAP a(j), a(j - 1)
NEXT
NEXT
PRINT "novyj ryad "
FOR i = n1+1 TO n2-1
PRINT a(i);
NEXT

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

Leave a Comment