Задание:
Подсчитайте сумму элементов каждой строки массива целых чисел X[1:3,1:2] (составить алгоритм иблок-схему)
Решение:
var a: array [1… 100,1… 100] of integer; n,m,s,i,j: integer; Begin read (n,m); for i: =1 to n do for j: =1 to m do read (a[i,j]); for i: =1 to n do begin s: =0; for j: =1 to m do s: =s+a[i,j]; writeln ('S[',i,']=',s); end; End.
Знаете другой ответ?