Pascal: Одномерный массив

[Аликс]

Второй отрицательный элемент массива заменить минимальным.

[LAngel]

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

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;

[Аликс]

Здравствуйте!

Программа не работает.

С уважением Аликс.

[AiK]

Тема перемещена

[PIT]

Хех интересно а вам ещё отлаживать её нада? По моему идею дали, вы должны быть рады. А если полностью и отладка то ето только за вознаграждение. 8)

[BAHTY3]

Не говори... :?