Вводится массив из n чисел (число n задается с клавиатуры). Упорядочить элементы массива в порядке возрастания (убывания) — 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
25
CLS
Vv: INPUT "Vvedite kol-vo elementov(n): ", n
IF n < 1 THEN PRINT "Vvedite zanovo, n < 1 nedopustimo...": GOTO Vv
DIM M(n)
FOR i = 1 TO n
    PRINT "Chislo №:"; i;: INPUT M(i)
NEXT
PRINT "Vozrastaniye:"
FOR u = n - 1 TO 1 STEP -1
    FOR i = 1 TO u
        IF M(i) > M(i + 1) THEN SWAP M(i), M(i + 1)
    NEXT
NEXT
FOR i = 1 TO n
    PRINT M(i);
NEXT: PRINT
PRINT "Ubivaniye:"
FOR u = n - 1 TO 1 STEP -1
    FOR i = 1 TO u
        IF M(i) < M(i + 1) THEN SWAP M(i), M(i + 1)
    NEXT
NEXT
FOR i = 1 TO n
    PRINT M(i);
NEXT: PRINT

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

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

Leave a Comment