'
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