8. Дан массив А(9). Упорядочить элементы, массива по убыванию. QBASIC

Хотите узнать готовый ответ на вопрос 8. Дан массив А(9). Упорядочить элементы, массива по убыванию. QBASIC и правильно решить домашнее задание по предмету Информатика? Подробное решение смотрите ниже.

8. Дан массив А(9). Упорядочить элементы, массива по убыванию. QBASIC

MS DOS QBasic 1.0

RANDOMIZE TIMER
CONST n = 9
DIM a(1 TO n) AS INTEGER
CLS
FOR i = 1 TO n
a(i) = INT(99 * RND)
PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF a(i) < a(j) THEN
t = a(i)
a(i) = a(j)
a(j) = t
END IF
NEXT j
NEXT i
FOR i = 1 TO n
PRINT a(i);
NEXT i

Пример
85 21 7 21 29 45 98 70 23
98 85 70 45 29 23 21 21 7


Похожие ответы

Помогите с информатикой! Написать программу в Паскале Заполнить массив 100 произвольных чисел.Определить сумму чисел которая >20 но <80
Помогите с информатикой! Написать программу в Паскале Заполнить массив 100 произвольных
Помогите решить. Завтра экзамен, я вообще не понимаю что делать
Помогите решить. Завтра экзамен, я вообще не понимаю что
дисплей работает с 256 цветной палитрой в режиме 1366x768. Для кодирования изображения требуется 464 гб. сколько страниц видеопамяти оно займёт
дисплей работает с 256 цветной палитрой в режиме 1366x768. Для кодирования изображения требуется
Дано пятизначное число. Получить число, образованное при перестановке цифр исходного числа слева направо.
Дано пятизначное число. Получить число, образованное при перестановке цифр исходного числа слева