Дан одномерный массив A[N]. Удвоить минимальный элемент массива и уменьшить в два раза максимальный элемент массива

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016begin  var a:=ArrRandom(ReadInteger('n='),10,50);  a.Println;  var imax:=a.IndexMax; a[imax]:=a[imax] div 2;  a[a.IndexMin]*=2;  a.Printlnend.Тестовое решение:n= 1039 23 22 15 37 41 16 44 41 3139 23 22 30 37 41 16 22 41 31