REM 'ВАРИАНТ 13
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
REM 'ЗАДАНИЕ 1
REM 'Вычисление матрицы
CLS 'очистка экрана
DIM A, X
INPUT "Введите количество элементов матрицы -> ", N
PRINT
PRINT "ЗАДАНИЕ 1: РАССЧИТАТЬ ЭЛЕМЕНТЫ КВАДРАТНОЙ МАТРИЦЫ"
REDIM A(1 TO N, 1 TO N)'определяем размерность матрицы
REDIM X(1 TO N)'ОПРЕДЕЛЯЕМ РАЗМЕРНОСТЬ ВЕКТОРА
FOR I = 1 TO N
    FOR J = 1 TO N
        A(I, J) = (I / 2 + 3 * J) * (-2) ^ I 'находим значение эл-ов матрицы
        PRINT "  "; A(I, J); 'выводим на экран значения эл-ов матрицы
    NEXT J
        PRINT
NEXT I
PRINT

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
PRINT "ЗАДАНИЕ 2: ИЗ МАТРИЦЫ ПОЛУЧИТЬ ЭЛЕМЕНТЫ ВЕКТОРА:"

'ВЫЧИСЛЯЕМ ЭЛ-ТЫ ВЕКТОРА
FOR I = 1 TO N
        FOR J = 1 TO N
        X(I) = X(I) + SIN(A(I, J)) * A(N - J + 1, I)'находим значения эл-ов вектора
        NEXT J
        PRINT "  "; X(I); 'выводим на экран значения эл-ов вектора   
NEXT I

PRINT
PRINT

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
PRINT "ЗАДАНИЕ 3: УПОРЯДОЧИТЬ МОДУЛИ МАТРИЦЫ ПОБОЧНОЙ ДИАГОНАЛИ ПО ВОЗРАСТАНИЮ:"
'ПОБОЧНАЯ ДИАГОНАЛЬ - ЭТО ДИГОНАЛЬ ИДУЩАЯ ИЗ ПРАВОГО ВЕРХНЕГО УГЛА В НИЖНИЙ ЛЕВЫЙ

FOR K = 1 TO N
J = 1
MINV = A(N, N)
FOR I = N TO 2 STEP -1
        IF ABS(A(I, J)) < ABS(A(I - 1, J + 1)) THEN
             MINV = A(I, J)
              A(I, J) = A(I - 1, J + 1)
              A(I - 1, J + 1) = MINV
        END IF
        J = J + 1
NEXT I
NEXT K

FOR I = 1 TO N
    FOR J = 1 TO N
        PRINT "  "; A(I, J); 'выводим на экран значения эл-ов матрицы
    NEXT J
        PRINT
NEXT I
PRINT

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
PRINT "ЗАДАНИЕ 4: ВЫЧИСЛИТЬ ЗНАЧЕНИЕ Ф-ИИ: Y = max X(I) - min X(I)"

'НАХОДИМ МАКСИМАЛЬНОЕ И МИНИМАЛЬНОЕ ЗНАЧЕНИЕ ВЕКТОРА X(I)

MAXX = X(1)
MINX = X(1)
FOR I = 1 TO N
IF MAXX < X(I) THEN MAXX = X(I)
IF MINX > X(I) THEN MINX = X(I)
NEXT I
Y = MAXX - MINX

PRINT " Y= "; Y; 'выводим на экран значение функции
PRINT
PRINT

END