Определить количество положительных элементов двумерного массива находящихся на главной диагонали матрицы размером 10*10 ( с вводом и выводом) ( желательно в Basik и с алгоритмом)

Смешной человек... сначала отмечает, как лучшее, потом - как нарушение, но не пишет, в чем оно ))))

Называется все это "от дурной головы ногам покоя нет" )))

Microsoft QBasic 1.0Ввод данных заменен на инициализацию от датчика псевдослучайных чисел на интервале [-45;45]. Если нужен именно ввод, строку A(I)=RND...замените на INPUT(A(I))CONST n = 10DIM a(1 TO n, 1 TO n) AS INTEGERRANDOMIZE TIMERCLSPRINT "Матрица A"FOR i = 1 TO n   FOR j = 1 TO n      a(i, j) = INT(90 * RND - 45)      PRINT USING "####"; a(i, j);   NEXT j   PRINTNEXT ik = 0FOR i = 1 TO n   IF a(i, i) > 0 THEN k = k + 1NEXT iPRINTPRINT "Количество положительных на ГД равно "; kПример выполнения программыМатрица A -33  43 -43   3  19 -43  28  19  32  27 -40  -4 -11 -27 -30  -7  35  19  24   0 -21 -43  30  10 -16  39  43  16  30   4 -39  40  13   3 -42  -5 -27  38  39  27 -26  34 -17 -26  12  36  21  23  28 -29  15  33 -44 -20   2 -36 -38  42 -44 -27 -10  -6  15 -17 -39  10  21   1  -6  32 -23   8  19  27 -19 -43  43   6  12 -18 -14 -39   8  -8  -4  18  44   6 -30 -24   9 -18   0  40  16  15  28  44  26  26Количество положительных на ГД равно 6