Вывести массив и полученную сумму. Упорядочить массив X(n) по возрастанию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. Значения буквенных переменных вводить с клавиатуры — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
INPUT n
DIM x(n)
RANDOMIZE TIMER
FOR i = 1 TO n
        x(i) = INT(RND * 89) + 10
        PRINT x(i);
        IF i MOD 2 = 0 THEN s = s + x(i)
NEXT i: PRINT
PRINT s
FOR q = 1 TO n
        FOR i = 1 TO n - 1
                IF x(i) > x(i + 1) THEN SWAP x(i), x(i + 1)
        NEXT i
NEXT q
  
FOR i = 1 TO n
                PRINT x(i);
NEXT i

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