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

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