Технический форум - Помогите с задачей

Технический форум (http://www.tehnari.ru/)

- Basic (http://www.tehnari.ru/f127/)

- - Помогите с задачей (http://www.tehnari.ru/f127/t93157/)

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

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

Ввести 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

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