Question

Найти среднее арифметическое элементов массива.Найти сумму элементов массива,которые меньше среднего арифметического

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 var avg := a.Average;

 Println('Ср.арифметическое', avg);

 Println('Сумма элементов, меньших ср. арифм.',

     a.Where(t -> t < avg).Sum)

end.

n= 15

-8 -28 17 -40 -26 15 47 -5 -31 -31 29 -31 17 35 -14

Ср.арифметическое -3.6

Сумма элементов, меньших ср. арифм. -214

Answer 2

где следует запускать это я и без тебя знаю

Answer 3

Баллы даются, чтобы вы задания свои нахяляву не кидали.

Answer 4

Я понял. Мало ты глупый, еще и хам.

Answer 5

от глупого и слышу

Answer 6

выпендриваться меньше надо