Součet určitých sloupců v matici – Delphi – Fórum – Programujte.com

Dobrý den,

potřeboval by sem se zeptat jak zadám do zdrojového kódu že chci sčítat čísla jen určitých sloupcích.

Např. Když chci sečíst čísla v prvním sloupci a výsledek vypsat a sečíst čísla ve třetím sloupci a výsledek vyspat.

Umím a dodávám zdroják sčítat čísla ve všech sloupcích ale nevím jak zadat určitou oblast diky.

function soucet(j,n:integer; var a:Tmatice):integer; // sčítá sudá čísla ve sloupcích j
var i,s:integer;
begin
s:= 0;
for i := 1 to m do
    s:= s+a[i,j];
soucet:=s;
end;

procedure TForm1.sectiClick(Sender: TObject);
var i,j,s:integer;
begin
for i:=1 to m do
for j:=1 to n do
a[i,j]:=strtoint(sg.Cells[j-1,i-1]);

for j:=1 to n do
  begin
  s:=soucet(j,n,a);
  sgs.Cells[j-1,0]:=inttostr(s);      // naplní sgs čísly

end;
 end;