Найти сумму элементов, расположенных по краю матрицы и записать эту сумму на место первого элемента — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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

Похожие записи/страницы:

Leave a Comment