Сумма элементов двумерного массива

[Vladimir-888]

Помогите плиз найти сумму элементов двумерного массива, расположенных до последнего положительного элемента.

[Vikenty]

Вот проверьте может работает

function GetSubSum(aLow,aHigh: integer): integer;
var
i,j: integer;
s: string;
m: integer;
ar: array[0..4,1..4] of integer; //èçìåíèòå ýòî íà âàøó ìàòðèöó
begin
m:=0;
for i:=0 to aLow do
begin
  for j:=0 to aHigh do
  begin
    s:=IntToStr(ar[i,j]);
    m:=m+ar[i,j];
    if s[1]='-' then
    begin
      GetSubSum:=m;
      exit;
    end;
  end;
end;

GetSubSum:=m;
end;