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


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

СРОЧНО ПОМОГИТеРЕШИТЬ ИНФОРМАТИКА
СРОЧНО ПОМОГИТеРЕШИТЬ ИНФОРМАТИКА
Найдите площадь закрашенной области в Pascal ABC net
Найдите площадь закрашенной области в Pascal ABC net
Задание 1 Запишите значения переменных после выполнения команд: (б) a := 120 div 1; b := 200 mod 150; c := 20 div 3 * 8 (в) a := 200 mod 60; b := 200 mod 40; c := 200 mod 400
Задание 1 Запишите значения переменных после выполнения команд б a 120 div 1 b 200 mod 150 c 20 div