- 9


'

cls

(, ) . read n, m

> 0 > 0  if N > 0 and > 0 then

[1:,1:] dim A (N,M)

S[1:n] dim S(n)

-_ gosub vvod '-

_ꠠ gosub sum '

k = 1 렠 for k= 1 to n

(s[k]) ? s[k]

렠 next k

end if

end

껠 sum: '

'

k = 1 N 렠 for k = 1 to n

s[k] := 0 s[k] = 0

l = 1 렠 for I = 1 to m

s[k] := s[k] + A[k,l] s[k] = s[k] + a[k,l]

렠 next I

렠 next k

return