CONST n = 5   'Размерность кв. матрицы
DIM M(n, n)    'Матрица 5x5
DIM Summ      'Сумма искомых элементов
 
  ' Заполним её случайными числами
  RANDOMIZE TIMER
  FOR ix = 1 TO n
     FOR iy = 1 TO n
        M(ix, iy) = INT(RND * 11) - 5
     NEXT
  NEXT
 
  ' Ищем сумму крайних эл-ов
  FOR i = 1 TO n
     Summ = Summ + M(i, 1)
     Summ = Summ + M(i, n)
  NEXT
  FOR i = 2 TO n - 1
     Summ = Summ + M(1, i)
     Summ = Summ + M(n, i)
  NEXT
 
  M(1, 1) = Summ
  PRINT "Summa krajnyh elementov:"; Summ