Разработать программу для выполнения операций на матрице размером 5×5. на печать вывести исходную и преобразованную матрицы. ввод и вывод матриц оформить подпрограммой-процедурой. : вычисление сумм положительных и отрицательных элементов отдельно.

// pascalabc.net 3.1, сборка 1200 от 13.03.2016 const   n=5; type   matrix=array[1..n,1..n] of integer; procedure dummyschool(var a: matrix); begin   writeln('ввод элементов матрицы');   for var i: =1 to n do begin       write(n,' элементов строки ',i,': ');       for var j: =1 to n do read(a[i,j]);       end;   writeln('сформирована матрица ',n,'x',n);   for var i: =1 to n do begin       for var j: =1 to n do write(a[i,j]: 5);       writeln       end end; begin   var b: matrix;   dummyschool(b);   var sn: =0;   var sp: =0;   for var i: =1 to n do       for var j: =1 to n do           if b[i,j]< 0 then sn+=b[i,j]           else               if b[i,j]> 0 then sp+=b[i,j];   writeln('сумма отрицательных ',sn);   writeln('сумма положительных ',sp) end. тестовое решение: ввод элементов матрицы 5 элементов строки 1: 6 23 -5 13 9 5 элементов строки 2: 42 0 -38 16 37 5 элементов строки 3: -5 -18 3 11 8 5 элементов строки 4: 9 13 -11 0 3 5 элементов строки 5: 19 -17 0 15 5 сформирована матрица 5x5       6    23    -5    13      9     42      0  -38    16    37     -5  -18      3    11      8       9    13  -11      0      3     19  -17      0    15      5 сумма отрицательных -94 сумма положительных 232

#include < stdio.h> #define max 100 void main()   {int mas[max][max], n, m, i, j, k, ok;   scanf("%d%d", & n, & m);   for (i=0; i< n; ++i)     for (j=0; j< m; ++j)     scanf("%d", & mas[i][j]);   for (i=0; i< n; ++i)     for (j=i+1; j< n; ++j)     {ok=1;       for (k=0; k< m; ++k)       if (mas[i][k]==mas[j][k])         {ok=0;         break; }       if (ok)       printf("%d %d\n", i, j); }}