Эта программа по поиску максимальных элементов в каждом столбце, а мне нужно в каждой строке. const n = 5; m = 4; var arr: array[1..n,1..m] of byte; i,j,max: byte; begin randomize; for i: =1 to n do begin for j: =1 to m do begin arr[i,j] : = random(256); write(' |',arr[i,j]: 3,'| '); end; writeln; end; for i: =1 to m do write(' '); writeln; for j: =1 to m do begin max : = arr[1,j]; for i: =2 to n do if arr[i,j] > max then max : = arr[i,j]; write(' ',max: 3,' '); end; writeln; end.