С, решить нужно с использованием процедуры или функции. : в двумерном массиве, состоящем из n целых чисел, найти сумму элементов в каждой строке. размер произвольный.

// pascalabc.net 3.0, сборка 1052 type   matrix=array[,] of integer; function sumrow(a: matrix; i: integer): integer; var   j,s: integer; begin   s: =0;   for j: =0 to length(a,1)-1 do s: =s+a[i,j];   sumrow: =s end; var   i,j,m,n: integer;   a: matrix; begin   write('введите количество строк и столбцов массива: ');   read(m,n);   setlength(a,m,n);   writeln('исходный массив');   randomize;   for i: =0 to m-1 do begin       for j: =0 to n-1 do begin           a[i,j]: =random(51)-25; // интервал [-25; 25]           write(a[i,j]: 4)       end;       writeln   end;   write('построчные суммы: ');   for i: =0 to m-1 do write(sumrow(a,i),' ');   writeln end. тестовое решение: введите количество строк и столбцов массива: 10 13 исходный массив   -11  19  -1  12 -19  -7  25  16    6 -18    8  16 -22   -10  -9  21  21 -16 -14  10    7  -7 -21  23 -25  14   -16  -5  18  -6  12 -11 -23  -3  20  24  -4 -18 -16   -15  -1    5  -5  -9  -3  -9    0    0  21  -3 -15  -1   21  19 -17  21  15    2  11  -7 -17    5  23 -14  -5   -7  13    7  -5  -8    0  13 -25 -24 -14 -23  24  14     0  10 -11  10  -1  -5 -17 -12  -6 -16 -12  25 -16   20  -3  17 -24  19    7 -16  22 -22    3  18 -21    3   23  -3  -1  20    7 -19  23 -25 -24 -24 -21  -1 -20     2 -23 -18  25    4  -7  -4 -17    5  -9 -17  25  -8 построчные суммы: 24 -6 -28 -35 57 -35 -51 23 -65 -42

Всего получается 31 символ. 31 умножаем на 2 (так как символ закодирован 2 байтами) и получается 62 байта.