Developing.ru

Код: Выделить всё

const
  N = some_val;
var
  arr: array[0..N-1] of Integer; 
  function GetSecondNegIndex: Integer;
  var
    i: Integer;
   c: Integer;
  begin
    c := 0;
    for i := 0 to N-1 do 
    begin
      if arr[i] < 0 then inc(c);
      if с = 2 then Break;
    end;
    Result := i;
  end;
  function GetMinElement: Integer;
  var
    i: Integer;
    v: Inteer; 
  begin
    v := arr[0]; Result := 0;
    for i := 0 to N-1 do
      if arr[i] < v then
      begin
        v := arr[i]; 
        Result := i;
      end;
  end;
begin
  {вводим массив}
  arr[GetSecondNegIndex] := arr[GetMinElement];
  {выводим массив}
end;