Question

Одномерные массивы.
Дан массив X из 20 целых чисел. Найти количество и сумму тех элементов данного массива, значения которых больше среднего арифметического значения элементов массива.
Требования к программе:
Обязательно описание переменных;
Значение элементов массива ввести с клавиатуры.

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Введите 20 целых чисел: ',20);
  var m:=a.Average;
  var p:=a.Where(n->n>m);
  Writeln('n=',p.Count,', S=',p.Sum)
end.

Пример
Введите 20 целых чисел:  39 -34 15 13 28 26 28 -4 39 -48 15 -40 14 10 -16 -8 -5 26 -24 8
n=12, S=261