delphi. Матрицы

[shepart]

Составить процедуру нахождения индексов минимального элемента квадратной матрицы NхN. Используя такую процедуру, сформировать одномерный массив, элементами которого являются попарные суммы эле¬ментов строки и столбца заданной квадратной матрицы с номерами, соответственно равными индексам ее минимального элемента.

[NetSpace]

ну, часть твоего задания, вроде, выполнима.

program matrix;
uses crt;
const N=5;
var i,j,imin,jmin,min:Integer;
     a[N][N]:array of Integer;//пущай целыми будут

begin
//ищем минимальный элемент и его индексы
//пусть сначала минимальным будет первый элемент 
min:=a[1][1];
imin:=1;
jmin:=1
//ищем по матрице
for i:=1 to N do
for j:=1 to N do
begin
   if(a[i][j]<min)then
   begin
      min:=a[i][j];//запоминаем мин.значение
      imin:=i;//и индекс строки
      jmin:=j;//и столбца
   end;
end;
end.

а вот с попарными суммами что-то с утра втыкнуть не могу....
хоть пример привёл бы для матрицы 2x2 - на ней то уж проще пояснить...

From Stilet: Попрошу код оформлять спецтегом по кнопке #