QBasic массив

[064]

как вывести массив наоборот вот пример

1
3
4
___

4
3
1

[andik]

CLS
DIM A(3)
DATA 1,3,4
FOR i=1 to 3
READ A(i)
NEXT i
FOR i=1 to 3
PRINT A(i)
NEXT i
PRINT "---"
FOR i=3 to 1 STEP -1
PRINT A(i)
NEXT i

[064]

Сообщение от andik

CLS
DIM A(3)
DATA 1,3,4
FOR i=1 to 3
READ A(i)
NEXT i
FOR i=1 to 3
PRINT A(i)
NEXT i
PRINT "---"
FOR i=3 to 1 STEP -1
PRINT A(i)
NEXT i

да вот это мне понятно)) а если числа произвольные т.е. 1 TO n

[andik]

Не совсем понял.

INPUT "Введите размер массива: ", n
DIM A(n)
FOR i=1 TO n
...

А массив должен заполняться случайными числами?

[064]

Сообщение от andik

Не совсем понял.

INPUT "Введите размер массива: ", n
DIM A(n)
FOR i=1 TO n
...

А массив должен заполняться случайными числами?

ДА ДА)) именно слчайными))

[andik]

Был далеко от компьютера, не мог ответить.
Хотя может уже и не требуется.
Хотя как осуществить задуманное, можно было самому додуматься, там нет ничего сложного. Смотри:

CLS
INPUT "Введите размер массива: ", n
DIM A(n)
FOR i=1 TO n
A(i)=INT(RND(1)*100)
PRINT A(i)
NEXT i
PRINT "---"
FOR i=n TO 1 STEP -1
PRINT A(i)
NEXT i