Question

Дан одномерный массив
а) Найти количество элементов меньших последнего элементов.
в) Найти количество элементов больших среднего арифметического массива.

Answer 1

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var al:=a.Last;
  Writeln('Элементов, меньших последнего, ',a.Where(t->t<al).Count);
  var m:=a.Average;
  Writeln('Элементов, больших ср.арифм, ',a.Where(t->t>m).Count);
end.

Пример
n= 13
-18 16 -36 -32 46 -2 -2 -4 -1 -7 16 -8 15
Элементов, меньших последнего, 9
Элементов, больших ср.арифм, 5