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

И после этого кто-то будет говорить, что С/С++ НАДО изучать в школе вместо Паскаля?

// 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 8n=12, S=261