Question

поменять местами первое положительное число с последним отрицательным числом в одномерном массиве из N целочисленых элементов (программа для PascalABC )

Answer 1

//PascalABC.NET 3.1 сборка 1239
begin
    var a:=ArrRandomInteger(10,-10,10);
    Println(a);
    
    var i :=a.FindIndex(x->x>0);
    var j:=a.FindLastIndex(x->x<0);
    swap(a[i], a[j]);
    Println(a);
end.

Answer 2

Конечно, вот пример программы на PascalABC, которая меняет местами первое положительное число с последним отрицательным числом в одномерном массиве:

pascalCopy code
program SwapPositiveAndNegative;

var
  arr: array of Integer;
  N, i, firstPositive, lastNegative, temp: Integer;
  
begin
  Write('Введите размер массива N: ');
  Readln(N);
  
  SetLength(arr, N);
  
  WriteLn('Введите элементы массива:');
  for i := 0 to N - 1 do
    Readln(arr[i]);
  
  firstPositive := -1;
  lastNegative := -1;
  
  // Найдем индекс первого положительного числа и последнего отрицательного числа
  for i := 0 to N - 1 do
  begin
    if (firstPositive = -1) and (arr[i] > 0) then
      firstPositive := i;
    
    if arr[i] < 0 then
      lastNegative := i;
  end;
  
  // Проверяем, что найдены оба элемента для обмена
  if (firstPositive <> -1) and (lastNegative <> -1) then
  begin
    // Меняем местами элементы
    temp := arr[firstPositive];
    arr[firstPositive] := arr[lastNegative];
    arr[lastNegative] := temp;
    
    WriteLn('Массив после обмена:');
    for i := 0 to N - 1 do
      WriteLn(arr[i]);
  end
  else
    WriteLn('Не найдено подходящих элементов для обмена.');
end.

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