' Двумерные массивы

' Ввод размерности матрицы

CLS
INPUT "Введите размерность матрицы n="; n

DIM a(n, n)

' Ввод исходной матрицы

FOR i = 1 TO n
    FOR j = 1 TO n
       PRINT "Введите элемент матрицы a("; USING "##"; i;
       PRINT ", "; USING "##"; j;
       INPUT ")="; a(i, j)
    NEXT j
NEXT i

' Вывод исходной матрицы

PRINT
PRINT "Матрица a(i,j)"

FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT USING "###.##"; a(i, j);
    NEXT j
    PRINT
NEXT i

' Подсчет суммы элементов с нечетными и четными индексами

FOR k = 1 TO 2
   S = 0
   FOR i = k TO n STEP 2
      FOR j = k TO n STEP 2
        S = S + a(i, j)
      NEXT j
   NEXT i
   IF k = 1 THEN S1 = S
   IF k = 2 THEN S2 = S
NEXT k

' Вывод ответа
PRINT
PRINT "Сумма элементов с нечетными индексами S1="; USING "####.##"; S1
PRINT "Сумма элементов с   четными индексами S2="; USING "####.##"; S2