срочно,имеется целочисленный массив n*m частей. отыскать среднее арифметическое элементов

Безотлагательно,имеется целочисленный массив n*m частей. отыскать среднее арифметическое элементов массива. найти и вывести количество массива, значения которых превосходит это среднее

Задать свой вопрос
1 ответ
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Начальный массив ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsByRow;
  var avg:=s.Average;
  Writeln('Среднее арифметическое ',avg);
  Writeln('Элементы, превышающее среднее арифметическое:');
  s:=s.Where(t-gt;tgt;avg);
  s.OrderBy(t-gt;t).Println;
  Writeln('Всего таких частей: ',s.Count)
end.

Пример
Количество строк и столбцов в массиве: 4 5
*** Исходный массив ***
  98  95 -10 -45  21
 -33 -11  14 -46  87
  57 -40 -96 -40  15
 -99 -20  -7 -29 -89
--------------------
Среднее арифметическое -8.9
Элементы, превышающее среднее арифметическое:
-7 14 15 21 57 87 95 98
Всего таких элементов: 8
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт