Помогите с матрицами! Опции

[bonchmen]

Здравствуйте, уважаемые Профи. Помогите пожалуйста решить такую задачку:
задана матрица 15*15. Необходимо:
1) Взять одну строку из этой матрицы и перемножить на остальные строчки;
2) Вычислить сумму каждой строки новой матрицы;
3) Сдвинуть строки исходной матрицы так, чтобы последний столбец стал 1-м, 1-й - вторым и т.д.;
4) Перемножить "сдвинутую" на ту же самую строчку исходной матрицы, что и в 1);
5) Повторить все операции до тех пор, пока сдвигаемая матрица не станет исходной (15 сдвигов);
6) Из сумм строк всех полученных матриц выбрать наибольшую по модулю.

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

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

[klem4]

Ну во первых покажи что уже есть ... По поводу сдвига все просто :

Запоминаешь первый столбец, далее сдвигаешь

for i := 1 to n - 1 do begin
// i-й столбец = i+1 - й столбец
end;

// после цикла присваеваешь n-му столбцу значения первого, которые ты запомнил ...

6) Из сумм строк всех полученных матриц выбрать наибольшую по модулю.

Пишешь ф-ю, которая считает сумму столбца, ну а далее все как обычно

Function Sum(m : TMatrix, col : integer) : integer;
begin
// ...
end;

col := 1;
max := abs(Sum(m , col));
for col := 2 to n do
 if abs(sum(m, col)) > max then max := abs(sum(m, col));

В таком духе ...