Определить сумму абсолютных значений элементов массива Х(n). Вывести исходный массив и полученную сумму. Упорядочить массив X(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
' Ввод данных
INPUT "Vvedite kol-vo chisel v massive:", n
DIM X(n) AS INTEGER, Sum
RANDOMIZE TIMER
' Заполнение массива
FOR i% = 1 TO n
    X(i%) = (RND * 101) - 50
NEXT
PRINT "ishodnyj massiv:"
'  Ищем сумму
FOR i% = 1 TO n
    Sum = Sum + ABS(X(i%))
    PRINT X(i%);
NEXT
PRINT CHR$(13) + "Summa:"; Sum
'  Сортировка
FOR i2% = n TO 1 STEP -1: FOR i1% = 1 TO i2% - 1
        IF X(i1%) > X(i1% + 1) THEN SWAP X(i1%), X(i1% + 1)
NEXT: NEXT
' Вывод упорядоченного массива
PRINT "Novyj massiv:"
FOR i% = 1 TO n
    PRINT X(i%);
NEXT

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

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

Leave a Comment