Здравствуйте, Водянникова Екатерина Валерьевна!
Программа в приложении (сначала ищется максимальное во всем массиве, затем массив перебирается по столбцам и выводятся номера нужных столбцов).

Приложение:
program Project2;var a: array[1..100, 1..100] of integer; n, m, i, j, max: integer;begin writeln(‘Vvedite n‘); readln(n); writeln(‘Vvedite m‘); readln(m); {матрица n*m} max := a[1, 1]; writeln(‘Vvedite massiv‘); for i := 1 to n do for j := 1 to m do readln(a[i, j]); writeln(‘Vvedennii massiv‘); for i := 1 to n do begin for j := 1 to m do write(a[i, j], ‘ ‘); writeln; end; for i := 1 to n do for j := 1 to m do if a[i, j] > max then max := a[i, j]; writeln(‘max=‘, max); writeln(‘Stolbtsi, sodershachie max:‘); for j := 1 to m do for i := 1 to n do if a[i, j] = max then writeln(j); readln;end.

Здравствуйте, Водянникова Екатерина Валерьевна!
Написал Вам задачку. Работает правильно, но с одной маленькой странностью: если максимальный элемент находится в нескольких столбцах, то номера столбцов выводятся не по порядку. Не знаю почему. А так - всё в порядке. Код в приложении.

Приложение:
const n=3; m=4;var ms: array [1..n, 1..m] of integer; i,j,max,index: integer;begin randomize; max:=-1; for i:=1 to n do begin writeln; for j:=1 to m do begin ms[i,j]:=random(10); if ms[i,j]>max then max := ms[i,j]; write(ms[i,j]:5); end; end; index:=0; writeln; write(‘Max value indexes are ‘); for i:=1 to n do for j:=1 to m do if (ms[i,j]=max) and (j<>index) then begin write(j:5); index:=j; end; readln;end.