{* Задача159 *}

REM basic

' Упорядочить элементы массива по возрастанию их модулей методом прямого включения.


CLS
INPUT "vvedite razmer massiva"; n
Dim a(n)
For i = 1 To n
    PRINT "vvedite element"; i
    INPUT a(i)
Next
CLS
PRINT "massiv"
For i = 1 To n
    PRINT a(i);
Next
For i = 2 To n
    Key = a(i)
    j = i - 1
    Do While j > 0 And ABS(a(j)) > ABS(Key)
        a(j + 1) = a(j)
        j = j - 1
    Loop
    a(j + 1) = Key
Next
PRINT
PRINT "New massiv"
For i = 1 To n
    PRINT a(i);
Next
End