- 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