Поменять местами первое положительное число с последним отрицательным числом в одномерном...

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);<br>    swap(a[i], a[j]);
    Println(a);
end.