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

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  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