Составте 4 процедуры для обработки двумерного массива( pascaleabs.net) 1) определить сумму и количество четных элементов двумерного массива. 2) находить "кордитнаты" максимального элемента. 3) заменить все четные значения на 0 4) определить номер строки в которой сумма элементов максимальна заранее !

// pascalabc.net 3.2, сборка 1401 от 14.03.2017 // внимание! если программа не работает, обновите версию! procedure sumkoleven(a: array[,] of integer; var s,k: integer); begin   var p: =a.rows.selectmany(x-> x).where(x-> x.iseven);   s: =p.sum; k: =p.count end; procedure maxcoord(a: array[,] of integer; var imax,jmax: integer); begin   (imax,jmax): =(0,0);   for var i: =0 to a.rowcount-1 do       for var j: =0 to a.colcount-1 do           if a[i,j]> a[imax,jmax] then (imax,jmax): =(i,j) end; procedure zeroeven(a: array[,] of integer); begin   for var i: =0 to a.rowcount-1 do       for var j: =0 to a.colcount-1 do           if a[i,j].iseven then a[i,j]: =0 end; procedure maxsumrow(a: array[,] of integer; var irow: integer); begin   irow: =a.rows.select(x-> x.sum).toarray.indexmax; end; begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var sum,kol: integer;   sumkoleven(a,sum,kol); writeln('s=',sum,', k=',kol);   var im,jm: integer;   maxcoord(a,im,jm); writeln('координаты максимума [',im+1,',',jm+1,']');   var b: =copy(a);   zeroeven(b);   b.println(4); writeln(4*b.colcount*'-');   maxsumrow(a,im); writeln('максимальная сумма у строки ',im+1) end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] ***   23  94  26  40 -88 -29  88 -46   -98  64 -78  93  17  36  66  56   -52 -16  -7 -33 -63 -95  40  96   10 -30  79 -75 -47  83  30 -70   -37 -50 -80  18  -7 -43  68 -68 s=56, k=25 координаты максимума [3,8]   23    0    0    0    0 -29    0    0     0    0    0  93  17    0    0    0     0    0  -7 -33 -63 -95    0    0     0    0  79 -75 -47  83    0    0   -37    0    0    0  -7 -43    0    0 максимальная сумма у строки 2

Алгоритм мальчик пошел в школу зашел в школу переоделся  з дал одежду  и пошел в класс