[dr. F.I.N.]

Код:

type
  PIntArray = ^TIntArray;
  TIntArray = array of Integer;

function Sum(arr: Pointer; Size: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  if Size = 0 then Exit;
  for i := 0 to Size - 1 do
  Inc(Result, PIntArray(arr)^[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TIntArray;
  i: Integer;
begin
  SetLength(a, 5);
  for i := 0 to 4 do
  a[i] := i;
  ShowMessage(IntToStr(Sum(@a, 2))); // сумма 2х элементов
  ShowMessage(IntToStr(Sum(@a, 4))); // сумма 4х
  ShowMessage(IntToStr(Sum(@a, 5))); // сумма 5ти
end;