Разработайте универсальную подпрограмму, определяющую сумму элементов в тех строках матрицы размером n×m элементов, которые не содержат отрицательных элементов. поместите подпрограмму в модуль. разработайте тестирующую программу. паскаль.

1. помещаем нижеследующий текст в файл unisum.pas, который должен находиться в директории pabcwork.net // pascalabc.net 3.0, сборка 1128 unit unisum; interface function unisummatrix(a: array[,] of integer): integer; function unisummatrix(a: array[,] of real): real; overload; implementation function unisummatrix(a: array[,] of integer): integer; begin   result: =0;   for var i: =0 to length(a,0)-1 do       for var j: =0 to length(a,1)-1 do           if a[i,j]> 0 then result+=a[i,j] end; function unisummatrix(a: array[,] of real): real; overload; begin   result: =0;   for var i: =0 to length(a,0)-1 do       for var j: =0 to length(a,1)-1 do           if a[i,j]> 0 then result+=a[i,j] end; end. 2. создаем новый файл и помещаем в него тестовую программу // pascalabc.net 3.0, сборка 1128 uses   unisum; begin   var m: =readinteger('число строк в матрице: ');   var n: =readinteger('число столбцов в матрице: ');   var r: =matrixrandom(m,n,-10,20);   writeln('сгенерированная матрица');   for var i: =0 to m-1 do begin       for var j: =0 to n-1 do write(r[i,j]: 4);       writeln       end;   writeln('сумма положительных элементов: ',unisummatrix(r));   m: =readinteger('число строк в матрице: ');   n: =readinteger('число столбцов в матрице: ');   var s: =matrixrandomreal(m,n,-15,32);   writeln('сгенерированная матрица');   for var i: =0 to m-1 do begin       for var j: =0 to n-1 do write(s[i,j]: 7: 2);       writeln       end;   writeln('сумма положительных элементов: ',unisummatrix(s): 0: 2) end. тестовое решение: число строк в матрице: 4 число столбцов в матрице: 3 сгенерированная матрица   -10  15  17   -8  -8    7     2  -9    0   -1    5  17 сумма положительных элементов: 63 число строк в матрице: 5 число столбцов в матрице: 6 сгенерированная матрица     0.74  -7.30  15.97    5.01    1.55  12.02   -3.98  -9.21    3.35  -7.95 -14.10  31.21   13.75  -5.82  -5.34  13.33  14.61  15.76   -5.30  14.65    2.60  20.26  27.30  10.81   11.60  27.43    5.61 -10.29 -10.48  26.61 сумма положительных элементов: 274.18 как видно, программа действительно универсальная: она позволяет работать с матрицами разных размеров и даже разного типа данных.

Честно не поняла задания вообще