поменять местами первое положительное число с последним отрицательным числом в одномерном массиве из N целочисленых элементов (программа для PascalABC )
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
//PascalABC.NET 3.1 сборка 1239begin
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.