Составьте программу для вычисления сумм отрицательных элементов каждого столбца матрицы — 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
25
26
27
CLS
DIM i, j AS INTEGER
DIM nRow, nCol AS INTEGER
nRow = 3
nCol = 3
  
DIM b(nRow, nCol) AS INTEGER
b(0, 0) = 1
b(0, 1) = 1
b(0, 2) = 2
b(1, 0) = -1
b(1, 1) = -4
b(1, 2) = 2
b(2, 0) = 2
b(2, 1) = -8
b(2, 2) = -100
  
DIM Summ(nCol)
FOR i=0 TO nCol-1
  Summ(i)=0
  FOR j=0 TO nRow-1
    IF b(j,i) < 0 THEN
      Summ(i) = Summ(i) + b(j,i)
    END IF
  NEXT j
  PRINT Summ(i)
NEXT i

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

Leave a Comment