• В массиве D(n), n≤25. вычислить полусумму наибольшего и наименьшего элементов. Переписать в массив C сначала элементы, не большие полусуммы, а затем – большие. Вычислить отношение R=A/B, где A- сумма по абсолютной величине элементов первой части массива C , а B – сумма элементов второй части массива C

Ответы 1

  • // PascalABC.NET 3.3, сборка 1573 от 04.11.2017// Внимание! Если программа не работает, обновите версию!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.Printlnend.Примерn= 1328 8 49 50 39 -12 16 -8 43 -33 -7 -2 1Полусумма равна 8.5, R=-0.2355555555555568 -12 -8 -33 -7 -2 1 28 49 50 39 16 43
    • Автор:

      gibson
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years