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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CLS
INPUT "Vvedite kol-vo elementov massiva:", n
DIM x(n) AS INTEGER
FOR i = 1 TO n
x(i) = INT(RND * 61)
PRINT x(i);
IF i MOD 2<>0 THEN s=s+x(i)
NEXT
PRINT
PRINT "s=";s
FOR i = 1 TO n
FOR j = 2 TO n
IF x(j) > x(j-1) THEN SWAP x(j), x(j-1)
NEXT
NEXT
PRINT
FOR i = 1 TO n
PRINT x(i);
NEXT
END

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