Kelemand
4 год назад
В массиве D(n), n≤25. вычислить полусумму наибольшего и наименьшего элементов. Переписать в массив C сначала элементы, не большие полусуммы, а затем – большие. Вычислить отношение R=A/B, где A- сумма по абсолютной величине элементов первой части массива C , а B – сумма элементов второй части массива C
ОТВЕТЫ
Katya
Oct 24, 2020
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
532
Смежные вопросы: