Question

Минимальный элемент одномерного массива A заменить на третий отрицательный элемент. Третий отрицательный искать от минимального элемента. Pascal

Answer 1

// PascalABC.NET 3.6.3

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var imin := a.IndexMin;

 var i := a?[imin + 1:].Indices(p -> p < 0).Skip(2).DefaultIfEmpty(-1).First;

 if i = -1 then

   Print('Нет такого элемента')

 else

 begin

   a[imin] := a[imin + i + 1];

   a.Print

 end

end.

Answer 2

Конечно, вот пример кода на языке Pascal, который решает данную задачу:

pascalCopy code
const
  N = 10; // Размер массива

var
  A: array[1..N] of Integer;
  i, minIndex, countNegatives, thirdNegIndex: Integer;

begin
  // Заполняем массив случайными значениями
  for i := 1 to N do
    A[i] := Random(100) - 50; // Генерируем случайное число от -50 до 49

  // Находим индекс минимального элемента
  minIndex := 1;
  for i := 2 to N do
    if A[i] < A[minIndex] then
      minIndex := i;

  // Находим третий отрицательный элемент, начиная от минимального элемента
  countNegatives := 0;
  thirdNegIndex := -1;
  for i := minIndex to N do
  begin
    if A[i] < 0 then
    begin
      Inc(countNegatives);
      if countNegatives = 3 then
      begin
        thirdNegIndex := i;
        Break;
      end;
    end;
  end;

  // Если найден третий отрицательный элемент, заменяем минимальный элемент
  if thirdNegIndex <> -1 then
    A[minIndex] := A[thirdNegIndex];

  // Выводим исходный и измененный массивы
  WriteLn('Исходный массив:');
  for i := 1 to N do
    Write(A[i], ' ');

  WriteLn;
  WriteLn('Измененный массив:');
  for i := 1 to N do
    Write(A[i], ' ');

end.

Обратите внимание, что в этом коде мы предполагаем, что в массиве есть как минимум три отрицательных элемента, начиная от минимального элемента. Если это не всегда выполняется для ваших данных, вам, возможно, потребуется внести соответствующие изменения в алгоритм.