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). Поменять местами соседние элементы массива Х и заполнить ими массив Y.
4). Массив Х(N) содержит N произвольных чисел (N нечетное). Напечатать эти числа, начиная с центрального, затем число, стоящее рядом слева, затем справа и т.д. до достижения границ массива.
5). Имеются (рис. 18) массивы Х(N) и Y(N) с координатами X, Y точек на плоскости в порядке их обхода. Определить (с помощью теоремы Пифагора) периметр замкнутой фигуры, с вершинами в этих координатах.
6). Построить вложенный цикл для печати таблицы умножения (как в ученической тетради).
