Вычислить и запомнить сумму каждой строки матрицы. Результаты вывести в виде двух строк — Basic(Бейсик)

disel

Массив A(N,M).Условия и ограничения N<=20, M<=15

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
INPUT n
INPUT m
DIM a(n, m), b(n)
FOR i = 1 TO n
FOR j = 1 TO m
INPUT "vvedite element "; a(i, j)
NEXT
NEXT
FOR i = 1 TO n
FOR j = 1 TO m
PRINT a(i, j); " ";
NEXT
PRINT
NEXT
FOR i = 1 TO n
FOR j = 1 TO m
b(i) = b(i) + a(i, j)
NEXT
NEXT
FOR i = 1 TO n \ 2
PRINT b(i); " ";
NEXT
PRINT
PRINT "summy strok"
FOR i = n - n \ 2 + 1 TO n
PRINT b(i); " ";
NEXT

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

Leave a Comment