Массивы и Процедуры в Pascal! Опции

[Tetris]

Помогите составить процедуру, которая определяет максимальный по модулю элемент в каждой строке квадратной матрицы и осуществляет его перестановку с соответствующим диагональным элементом.
Заранее благодарен!  

[AlaRic]

Глянь сюда: FAQ: Решения задач

[Tetris]

-----------------------------------------------
Построчно находить максимальный элемент это не проблема.
Пусть массивом будет 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;

-------------------------------------
Помогите кто может. Задача срочняк нужна !

Заранее спасибо!!!

Сообщение отредактировано: volvo - 17.12.2004 16:54