3) максимальный элемент в заданной группе соседних строк матрицы a(n,n).паскаль

Const   n = 10; var   x: array[1..n, 1..n] of integer;   i,j,i1,i2,xmax: integer; begin   randomize;   write('введите через пробел номера строк матрицы для поиска: ');   read(i1,i2);   writeln('исходная матрица');   for i: =1 to n do   begin       for j: =1 to n do       begin           x[i,j]: =random(101)-50;           write(x[i,j]: 4)       end;       writeln   end;   xmax: =x[i1,1];   for i: =i1 to i2 do       for j: =1 to n do           if xmax< x[i,j] then xmax: =x[i,j];   writeln('максимальный элемент в указанном диапазоне: ', xmax); end. тестовое решение: введите через пробел номера строк матрицы для поиска: 4 6 исходная матрица   13    2  30  10  -5  42  45  41  13  17   -10  37  47  16 -37 -41  11 -37  -1 -48   -26  -9 -15    5 -31 -36  44  30    4 -20   -34    9  34  43  22 -36  35    1  33  11   -14  22  16 -42  15    4  48  -6 -18  45   -25    1  41  26 -39 -29 -34 -25 -10 -19   48 -35 -13 -18    1  32 -48 -47  45  49   -25 -40 -19  39  16    3  26 -23  41  16   -34    0  -3    9 -45  15  18 -42  32    0   48  10 -40    1  13 -29 -15 -17    7  34 максимальный элемент в указанном диапазоне: 48

Const nx =20; var i,j,n,m,max: integer;   a: array[1..nx,1..nx] of integer; begin  write('введите размер матрицы n'); read(n); max: =-100; write('введите номер строки m, меньше ',n-1); read(m); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: = random(100)-50; if a[m-1,j] > max then max: = a[i,m-1]; if a[m,j] > max then max: = a[i,m]; if a[m+1,j] > max then max: = a[i,m+1]; write(a[i,j]: 3); end; writeln; end; write('максимальный элемент ' ,m, '-й и соседних строк матрицы = ', max); end.

Пуантилизм - вид живописи, когда рисуют маленькими точками. например , легкими касаниями кисти или тыканьем фломастера(от слова пуанты-как ходят на пальчиках). а в компьютерной графике( в основном в растровой графике) элементами являются пиксели -   мельчайшие элементы данного изображения. получается, что и там и там маленькие точки.