INPUT n

DIM x(n)

'формирование исходного вектора

FOR i = 1 TO n: x(i) = i: NEXT

FOR i = 1 TO n - 1

FOR j = i + 1 TO n

'если x(i)<x(j), числа меняются местами

IF x(i)<x(j) THEN SWAP x(j), x(i)

NEXT j

NEXT i

'вывод результатов

FOR i = 1 TO n: PRINT x(i): NEXT

@ Задачи для самостоятельного решения.

1). Напечатать число из массива Х(N), предшествующее минимальному.

2). Переместить элементы массива Х в массив Y таким образом, чтобы в нем сначала оказалась вторая половина исходного массива X, а затем первая.

3). Массив Х(N) содержит N произвольных чисел (N нечетное). Напечатать эти числа, начиная с центрального, затем число, стоящее рядом слева, затем справа и т.д. до достижения границ массива.

4). Имеются (рис. 16) массивы Х(N) и Y(N) с координатами X, Y точек на плоскости в порядке их обхода. Определить периметр замкнутой фигуры, с вершинами в этих координатах.

5). Построить вложенный цикл для печати таблицы умножения.