Задача о назначениях на Pascal'е

[PSix1_73]

Мастера Pascal'я помагите решить задачу. Есть квадратная матрица
1строка: 3 4 2 2 1,
2строка:4 5 3 1 3,
3строка:4 3 1 1 1,
4строка:3 1 2 2 2,
5строка:0 0 0 0 0.
Необходимо что-бы прога находила максимальное назночение т.е. должны быть выбраны числа так что бы в каждой строке и столбце было выбрано по одному числу и сумма этих чисел была максимально возможной. Ответ: 13. Как это сделать? Буду очень-очень благодарен!

[PSix1_73]

Неужели ни кто не знает как это сделать! Я и алгоритм решения знаю, если это поможет напишите, я его выложу. Просто для меня паскаль это очень сложно!

[Anatole]

Выложи алгоритм. Посмотрим.

[Stilet]

PSix1_73

Ну если навскидку:

for i:=1 to 5 do begin
 for j:=1 to 5 do
  if массив[i,j]>max then max:=массив[i,j];
 Сумма:=Сумма+max;
end;   
Ну и сумму выводи

[PSix1_73]

Stilet, как я понимаю в твоём коде берётся элемент, если он больше максимального тогда переменной max присваевается его значение и складывается в сумму, если я всё правильно понял это не совсем то. Алгорит примерно такой: берётся первая строка массива и суммируются её элементы, сумма заносится в переменную(допустим x), потом берётся первые четыре элемента первой строки и пятый элемент второй, так же суммируется и сравнивается с x, если сумма больше x то она записывается в x. Далее берётся четыре элемента первой строки и пятый третей (как я понимаю это должно делатся циклом) и т.д. я думаю алгоритм понятен.