Помогите с задачей

[qbonesq]

Помогите с задачей

ввести n(любое количество) чисел и расположить их в порядке убывания.
код программы и блок-схема. бейсик

 

[Gruvi]

Ввести 3 числа и расположить их в порядке убывания:

INPUT a,b,c
IF a>b THEN SWAP a,b
IF a>c THEN SWAP a,c
IF b>c THEN SWAP b,c
PRINT a,b,c

 

[iks2]

Вы можете ввести любые число. Общее количество чисел до 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