Вы можете ввести любые число. Общее количество чисел до 1000.
Ввод числа 0 - означает конец ввода. Программа выдает на экран нужную вам последовательность чисел.
Код:
REM
REM QBASIC
REM
CLS
DIM x(1 TO 1000)
DO
n = n + 1
INPUT x(n)
LOOP UNTIL x(n) = 0
PRINT
FOR i = 1 TO n - 2
FOR j = i + 1 TO n - 1
IF x(i) < x(j) THEN SWAP x(i), x(j)
NEXT j, i
FOR i = 1 TO n - 1
PRINT x(i);
NEXT i
END