В векторе У (m) поменять местами максимальный и минимальный элементы. Помогите мне пожалуйста. Не в клавиатуру а просто.
В векторе У (m) поменять местами максимальный и минимальный элементы. Помогите мне пожалуйста. Не в клавиатуру а просто.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var n:=ReadInteger('n=');
var y:=ArrRandom(n,1,100); y.Println(', ');
var imax:=0;
var imin:=0;
for var i:=1 to n-1 do
if y[i]>y[imax] then imax:=i
else
if y[i]
Не нашли ответ?
Похожие вопросы