Question

Дан массив из 100 элементов. Необходимо заполнить первые n из них первыми n натуральными числами в порядке убывания.
Формат входных данных

С клавиатуры вводится натуральное число n (n≤100n≤100).
Формат выходных данных

Требуется вывести содержимое первых n элементов массива после заполнения согласно условию задачи. Элементы должны разделяться пробелами.

Answer 1

CLSINPUT NDIM A(N)FOR i = 1 TO N  A(i) = INT(RND * 100)NEXT iFOR i = 1 TO N  FOR j = 1 TO N    IF A(i) > A(j) THEN SWAP A(i), A(j)  NEXT jNEXT iFOR i = 1 TO N  PRINT A(i);NEXT i