-----------------------------------------------
Построчно находить максимальный элемент это не проблема.
Пусть массивом будет A[i,j]
Код
max:=0;
for i:=1 to n do
begin
for j:=1 to n do
if A[i,j]>max then max:=A[i,j];
{Сюда,по ходу,надо вписать часть процедуры которая будет это самое A[i,j](max) менять с числом A[j,i](Если я всё правильно понял) или можно создать некую вторую матрицу.}
max:=0;
end;
-------------------------------------
Помогите кто может. Задача срочняк нужна !
Заранее спасибо!!!