Процедуры на delphi

[Dante11]

Привет всем, друзья, не поможете ли написать прогу? Очень нужно, а время в обрез, у самого уже мозги не варят(
надо составить процедуру, которая 1-й отрицательный элемент каждой строки заменяет суммой положительных элементов . Если замена невозможна( нет отрицательных элементов в строке) занести номер строки в массив NOM. Использовать составленную процедуру для матрицы Q(k,l), k<=14, l<=15.
заранее спасибо, тем кто примет участие)

[Stilet]

Предлагаю такую стратегию:

var a:array[1..n,1..n] of integer; i,j:integer;

procedure chg(i:integerl);
begin
 if min<>0 then a[i,min]:=sum else nom[i]:=min;
end;

begin
for i:=1 to k do begin
 min:=0; sum:=0;
 for j:=1 to l do begin
  if (min=0)and(a[i,j]<0) then min:=j;
  if a[i,j]>0 then sum:=sum+a[i,j];
 end; chg(i);
end;
end.

[Dante11]

а на работоспособность проверял?

[Stilet]

А зачем? Задача то твоя, я всего лишь предложил возможное ядро решения.

[Dante11]

хитрый) ладно я подумаю над этим ядорм)спасибо)