Поменять местами первое положительное число с последним отрицательным числом в одномерном массиве из N целочисленых элементов (программа для PascalABC )
Поменять местами первое положительное число с последним отрицательным числом в одномерном массиве из N целочисленых элементов (программа для PascalABC )
Гость
Ответ(ы) на вопрос:
Гость//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.
Не нашли ответ?
Похожие вопросы