Организация циклов и работа с одномерными массивами

[DrDre]

через Integer.

Найти произведение последних L отрицательных элементов в массиве A={a[i]}.

[_Engine_]

type
  TMyArray = array of Real;

function Mult(a : TMyArray; L : Integer) : Double;
 var i : Integer;
begin
  Result := 1;
  if L > length(a) then exit;
  for i := high(a) downto low(a) do
    if (a[i] < 0) then
    begin
      dec(l, -1);
      Result := Result * a[i];
      if l = 0 then break;
    end;
  if l > 0 then Result := 0;
end;

[puporev]

dec(l, -1); масло маслянное

[Sparkman]

ЛоЛ: не проще было вместо

dec(l,-1)

написать

inc(l)

? Или это сделано было для того чтобы студенту жизнь медом не казалась?

ПС: студенту - там исправьте на

dec(l)

[puporev]

да и result в Паскале не рулит...