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


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

Ребят!!!! Срочно!!! Напишите доклад на тему "Обрабатка цифрового фото и видео" Весь инет перерыла,найти не могу(((((
Ребят!!!! Срочно!!! Напишите доклад на тему Обрабатка цифрового фото и видео Весь инет
какой формат не подходит для сохранения растровых изображений?
какой формат не подходит для сохранения растровых
составить схему алгоритма на какую нибудь вещь
составить схему алгоритма на какую нибудь вещь