Вмассиве d(n), n≤25. вычислить полусумму наибольшего и наименьшего элементов. переписать в массив c сначала элементы, не большие полусуммы, а затем – большие. вычислить отношение r=a/b, где a- сумма по абсолютной величине элементов первой части массива c , а b – сумма элементов второй части массива c
// Внимание! Если программа не работает, обновите версию!
begin
var d:=ArrRandom(ReadInteger('n='),-50,50); d.Println;
var p:=(d.Min+d.Max)/2;
var s1:=d.Where(t->t<=p);
var s2:=d.Where(t->t>p);
var R:=s1.Sum/s2.Sum;
var c:=(s1+s2).ToArray;
Writeln('Полусумма равна ',p,', R=',R);
c.Println
end.
Пример
n= 13
28 8 49 50 39 -12 16 -8 43 -33 -7 -2 1
Полусумма равна 8.5, R=-0.235555555555556
8 -12 -8 -33 -7 -2 1 28 49 50 39 16 43