Question

Удалить в массиве второй отрицательный элемент если такой естьpascal abc

Answer 1

Удалить всмысле на ноль заменить? если да, то:
if {name array}[2] <0 then
{name array}:=0;

Answer 2

В Pascal можно удалить второй отрицательный элемент из массива, используя следующий алгоритм:

1. Объявите массив и заполните его значениями. 2. Создайте переменную-счетчик для отслеживания количества отрицательных элементов. 3. Пройдитесь по массиву и увеличивайте счетчик каждый раз, когда встречается отрицательный элемент. 4. Если счетчик достигает значения 2, удалите элемент из массива. 5. Перестройте массив, чтобы удалить пустые ячейки.

Вот пример кода на Pascal, который реализует этот алгоритм:

program RemoveSecondNegativeElement;
const
  MAX_SIZE = 100;
var
  arr: array[1..MAX_SIZE] of Integer;
  n, i, countNegatives, secondNegativeIndex: Integer;
begin
  // Ввод размера массива
  Write('Введите размер массива: ');
  ReadLn(n);
  
  // Ввод элементов массива
  WriteLn('Введите элементы массива:');
  for i := 1 to n do
  begin
    Write('arr[', i, '] = ');
    ReadLn(arr[i]);
  end;
  
  // Поиск и удаление второго отрицательного элемента
  countNegatives := 0;
  secondNegativeIndex := -1;
  for i := 1 to n do
  begin
    if arr[i] < 0 then
    begin
      countNegatives := countNegatives + 1;
      if countNegatives = 2 then
      begin
        secondNegativeIndex := i;
        Break;
      end;
    end;
  end;
  
  if secondNegativeIndex <> -1 then
  begin
    // Удаление второго отрицательного элемента
    for i := secondNegativeIndex to n - 1 do
    begin
      arr[i] := arr[i + 1];
    end;
    n := n - 1; // Уменьшение размера массива
  end;
  
  // Вывод измененного массива
  WriteLn('Измененный массив:');
  for i := 1 to n do
  begin
    WriteLn('arr[', i, '] = ', arr[i]);
  end;
end.

После выполнения этого кода, второй отрицательный элемент будет удален из массива, если такой элемент существует. Измененный массив будет выведен на экран.

Примечание: Убедитесь, что ваша среда разработки поддерживает Pascal и что вы правильно настроили компилятор для выполнения этого кода.