Èíôîðìàòèêà
Ðåøåíèå çàäà÷ íà ÝÂÌ - ÷àñòü 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
