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

Microsoft qbasic 1.0 ввод данных заменен на инициализацию от датчика псевдослучайных чисел на интервале [-45; 45]. если нужен именно ввод, строку a(i)= замените на input(a(i)) const n = 10 dim a(1 to n, 1 to n) as integer randomize timer cls print "матрица 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     print next i k = 0 for i = 1 to n     if a(i, i) > 0 then k = k + 1 next i print print "количество положительных на гд равно "; 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

  var a,b,sum,c: real;   begin    write();     readln(a,b,c);   begin  sum: =b+a+c;   sum: =sum/3  end;   writeln(sum);   end.