finde en bestemt sum i array

Jeg tror du skal lægge spørgsmålet under programering generelt, da det er algoritmen du er ude efter.

Det må kunne gøres mere enkelt. Men det virker:

type
    TRES = array of integer;

procedure BeregnRES(Tal : array of integer; var RES : TRES);
var
    TalLeft : integer;

function GetRES : integer;
var
    i,x : integer;
begin
    x:=0;
    for i:=0 to length(Tal)-1 do
  begin
      if (x+Tal[i]<=20) and (Tal[i]>0) then
    begin
        x:=x+Tal[i];
            Tal[i]:=0;
      Dec(TalLeft);
    end;
    if x=20 then
            break;
    end;
  Result:=x;
end;

begin
    TalLeft:=Length(Tal);
    while TalLeft>0 do
  begin
      SetLength(RES,Length(RES)+1);
    RES[Length(RES)-1]:=GetRES;
    end;
end;

//------------------------

procedure TForm1.Button1Click(Sender: TObject);
const
    Tal : array(.0..8.) of integer = (9,8,6,1,1,2,1,6,13);
var
  RES : TRES;
  i : integer;
begin
    BeregnRES(Tal,RES);
  for i:=0 to length(RES)-1 do
      Showmessage('RES'+inttostr(i+1)+'='+IntToStr(RES[i]));
end;

Tusind tak kroning.

Det vigtigste i første omgang, er at det virker:-)

og det gør det jo...

læg svar for point

ok