Ввести целочисленный двумерный массив a n×m, вывести его. найти максимальный и минимальный элементы массива, среди тех, значения которых кратны двум. найденные элементы удвоить, а все остальные утроить.

/// находит минимальный и максимальный элементы, кратные двум procedure findelem(a: array [,] of integer; var min, max: integer); begin min : = integer.maxvalue; max : = integer.minvalue; for var i : = 0 to a.getlength(0) - 1 do for var j : = 0 to a.getlength(1) - 1 do if a[i, j] mod 2 = 0 then begin if a[i, j] > max then max : = a[i, j]; if a[i, j] < min then min : = a[i, j]; end; end; ///создает массив 10 на 10 целых чисел из рандома от 0 до 10 function makearray: array [,] of integer; begin setlength(result, 10, 10); for var i : = 0 to result.getlength(0) - 1 do for var j : = 0 to result.getlength(1) - 1 do result[i,j] : = random(0, 10); end; ///распечатывает массив procedure printarray(a: array [,] of integer); begin for var i : = 0 to a.getlength(0) - 1 do begin for var j : = 0 to a.getlength(1) - 1 do print(a[i,j]); writeln; end; end; begin var c : = makearray; var min, max: integer; printarray(c); findelem(c, min, max); writeln('min = ', min); writeln('max = ', max); end.

11001000 и 11001101 н 11010100 ф 11001110 о 11010000 р 11001100 м 11000000 а 11010010 т 11001000 и11001010 к 11000000 а 200 и 205 н 212 ф 206 о 208 р 205 м 192 а 210 т 200 и 202 к 192 а