Подсчитать количество единиц на главной диагонали матрицы

' Матрица
DIM M(1 TO 7, 1 TO 7)
' Кол-во единиц
DIM Edinic AS INTEGER
    ' Ищем единицы и увеличиваем их счётчик
    FOR i = 1 to 7
       IF M(i, i) = 1 THEN Edinic = Edinic + 1
    NEXT
 
PRINT "Edinic na glavnoj diagonali:"; Edinic

' Матрица
DIM M(1 TO 7, 1 TO 7)
' Счетчик кол-ва единиц
DIM Edinic AS INTEGER
' Произведение эл-ов
DIM Proizved AS DOUBLE
'(опять же никто ничего не уточняет, посему удобнее так,
' ибо матрица по умолчанию типа SINGLE)
 
  RANDOMIZE 755   'Кому надо поменяет цифру(так удобней)
 
    ' Заполним матрицу случайными числами
    FOR ix = 1 TO 7: FOR iy = 1 TO 7
       M(ix, iy) = (RND * 5) -2.5
       ' Случайным образом расставим единицы на главной диагонали
       IF (INT(RND*2) = 1) AND (ix = iy) THEN M(ix, iy) = 1
    NEXT: NEXT
 
    ' Ищем единицы и увеличиваем их счётчик
    FOR i = 1 TO 7
       IF M(i, i) = 1 THEN Edinic = Edinic + 1
    NEXT
 
    ' Ищем произведение эл-ов
    FOR i = 1 TO 7
       IF i = 1 THEN
         Proizved = M(1, 7)
       ELSEIF i <> 1 THEN
         Proizved = Proizved * M(i, 8-i)
       END IF
    NEXT
 
 
PRINT "Edinic na glavnoj diagonali:"; Edinic
PRINT "Proizvedeniye elementov pobochn diagonali:"; Proizved

DIM M(7,7)

RANDOMIZE TIMER

m(i,j)=int(rnd*101)-50

' Матрица
DIM M(1 TO 7, 1 TO 7)
' Счетчик кол-ва единиц
DIM Edinic AS INTEGER
' Произведение эл-ов
DIM Proizved AS DOUBLE
'(опять же никто ничего не уточняет, посему удобнее так,
' ибо матрица по умолчанию типа SINGLE)
DIM SredneeM
 
  CLS
  RANDOMIZE TIMER   'Таблица случ. ч. по таймеру
 
    ' Заполним матрицу случайными числами
    FOR ix = 1 TO 7: FOR iy = 1 TO 7
       M(ix, iy) = (RND * 5) - 2.5 ' Пусть все числа будут веществ, кроме тех
                                           ' которые будут переодич. появляться на диагонали  
       ' Случайным образом расставим единицы на главной диагонали
       IF (INT(RND * 2) = 1) AND (ix = iy) THEN M(ix, iy) = 1
    NEXT: NEXT
 
        PRINT "Ishodnaya matrica :"
 
     FOR iy = 1 TO 7: FOR ix = 1 TO 7
       PRINT M(ix, iy);
     NEXT: PRINT : NEXT
 
 
    ' Ищем единицы и увеличиваем их счётчик (Пункт 1)
    FOR i = 1 TO 7
       IF M(i, i) = 1 THEN Edinic = Edinic + 1
    NEXT
 
    ' Ищем произведение эл-ов (Пункт 2)
    FOR i = 1 TO 7
       IF i = 1 THEN
         Proizved = M(1, 7)
       ELSEIF i <> 1 THEN
         Proizved = Proizved * M(i, 8 - i)
       END IF
    NEXT
 
 
PRINT "Edinic na glavnoj diagonali:"; Edinic
PRINT "Proizvedeniye elementov pobochn diagonali:"; Proizved
 
    'Меняем столбцы (Пункт 4)
    FOR i = 1 TO 7
      SWAP M(1, i), M(4, i)
    NEXT
 
    'Копируем 5,6,7 строки в 4,5,6 соотв. (Пункт 5)
    'Теперь 7-ой строки для нас НЕТ
     FOR iy = 4 TO 6: FOR ix = 1 TO 7
       M(ix, iy) = M(ix, iy + 1)
     NEXT: NEXT
 
        PRINT "Novaya matrica :"
 
     FOR iy = 1 TO 6: FOR ix = 1 TO 7
       PRINT M(ix, iy);
     NEXT: PRINT : NEXT
 
    'Ищем среднее арифм. эл-в изменённой матрицы (Пункт 6)
     FOR iy = 1 TO 6: FOR ix = 1 TO 7
       SredneeM = SredneeM + M(ix, iy)
     NEXT: NEXT: SredneeM = SredneeM / 42
      PRINT "Srednee arifmeticheskoye matrici:"; SredneeM
 
    'Ввести 2 столбик с клавиатуры (Пункт 7)
      PRINT "Vvedite elementi vtorogo stolbca po odnomy"
      INPUT "1:", M(2, 1): INPUT "2:", M(2, 2): INPUT "3:", M(2, 3)
      INPUT "4:", M(2, 4): INPUT "5:", M(2, 5): INPUT "6:", M(2, 6)

DIM masiv( 1 to 20,1 to 10)as single

а dim a(20,10)

if nomerStr>maxNomer then
indeks=indeks+1
massiv(indeks)=nomerStr
end if

if n>m then k=k+1:a(k)=n