[Vadim18]

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

[dr. F.I.N.]

Код:

function SumPosible(a: array of Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := Low(a) to High(a) do
  if a[i] > 0 
  then Inc(Result, a[i]);
end;