14. Составить программу для условия задачи п. 14

Схема алгоритма решения этой задачи приведена на рис. 2.12.По условию задачи перебор элементов матрицы A необходимо выполнить по строкам. Поэтому ввод матрицы и перебор элементов осуществляется во вложенных циклах, внешним циклом является цикл по строкам (параметр i). Результат выводится в конце каждого внутреннего цикла.

' REM СУММЫ ЭЛЕМЕНТОВ СТРОК МАТРИЦЫ

DIM A (6, 5)

DATA...' элементы матрицы по строкам

FOR I = 1 TO 6

S = 0

FOR J = 1 TO 6

READ A (I, J)

IF A (I, J) > 0 THEN S = S + A (I, J)

NEXT J

PRINT “ S = ”; S

NEXT I

END