Sos help в одномерном массиве разность положительных элементов.программуу

разберем предложение "чернила на 99% состоят из воды" по количеству символов в каждом слове: - "чернила" - 7 символов - " "(пробел) - 1 символ - "на" - 2 символа - " "(пробел) - 1 символ - "99%" - 3 символа - " "(пробел) - 1 символ - "состоят" - 7 символов - " "(пробел) - 1 символ - "из" - 2 символа - " "(пробел) - 1 символ - "воды" - 4 символа значит всего символов: 7 + 1 + 2 + 1 + 3 + 1 + 7 + 1 + 2 + 1 + 4 = 30 если каждый символ кодируется одним байтом, значит информационный объем предложения равен 30 байтам. ответ: 30 байт

Const   n = 10;   m = 10; type   matrix = array[1..n, 1..m] of integer; procedure entermas(var mas: matrix); var  i, j: integer; begin   randomize;   for i : = 1 to n do       for j : = 1 to m do           mas[i, j] : = random(100); end; procedure givemas(var mas: matrix); var  i, j: integer; begin   for i : = 1 to n do   begin       for j : = 1 to m do       begin           write(mas[i, j], ' ');       end;       writeln;   end; end; function sumstroki(mas: matrix; i, k: integer): integer; var   j, sum: integer; begin   sum : = 0;   for j : = 1 to m do       sum : = sum + mas[i, j];   sumstroki : = sum - k; end; function element(var mas: matrix): integer; var   i, j, count: integer; begin   count : = 0;   for i : = 1 to n do       for j : = 1 to m do           if mas[i, j] > sumstroki(mas, i, mas[i, j]) then inc(count);   element : = count; end; var  mas: matrix;   sum, max: integer; begin   entermas(mas);   givemas(mas);   writeln('кол-во особых элементов ', element(mas)); end.