Дан целочисленный массив из a(n) отсортировать по убыванию элементы массива с нечетными номерами методом выбора- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
INPUT "vvedite kolichestvo elementov N ", n
DIM a(n)
FOR i = 1 TO n
INPUT "vvedite element ", a(i)
NEXT
PRINT "ishodnyj massiv"
FOR i = 1 TO n
PRINT a(i);
NEXT
PRINT
FOR i = 1 TO n - 1 STEP 2
max = a(i): k = i
FOR j = i + 2 TO n STEP 2
IF a(j) > max THEN max = a(j): k = j
NEXT
SWAP a(i), a(k)
NEXT
PRINT "novyj massiv"
FOR i = 1 TO n
PRINT a(i);
NEXT

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

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

Leave a Comment