<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var x1:=a.Where(x->x>0).Min;
var i1:=a.FindIndex(x->x=x1);
var x2:=a.Where(x->x<0).Max;
var i2:=a.FindIndex(x->x=x2);
Swap(a[i1],a[i2]); a.Println
end.
<u>Пример</u>
n= 16
-9 -8 1 -9 2 5 -6 7 5 -9 0 2 -6 -7 3 6
-9 -8 -6 -9 2 5 1 7 5 -9 0 2 -6 -7 3 6
600+2049+4096+4508=11253
11253:2048=5.4 Примерно.
Нужно 6 кластеров для хранения всех четырёх файлов.
Решение:
<span>Не понятно зачем в конце выражения стоит 4, Предположу, что это (x+5)^4 </span>
<span>y'=4-4/(x+5); y'=0 </span>
<span>4-4/(x+5)=0 </span>
<span>x+5=1 </span>
<span>x=-4 полученная стационарная точка принадлежит заданному промежутку и на этом промежутке является точкой минимума </span>
<span>у (-4)=-16-0=-16</span>
Чебурашку:С новым годом малыш расти очень большой. Крокодила Гену:воспитывай малыша порядочно С новым годом.