// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!type tL=List<integer>;function Avg(L:tL):=L.Average;function Cont(L:tL; e:integer):=L.Contains(e);function Occurs(L:tL; e:integer):=L.Where(t->t=e).Count;begin var MyList:=Lst(3,8,12,5,16,9,5,-2,7,0,5,-1); MyList.Println; Writeln('Среднее равно ',Avg(MyList):0:3); var k:=ReadInteger('Введите элемент для поиска:'); Writeln('Есть ли такой элемент в списке? ',Cont(MyList,k)); Writeln('Количество таких элементов равно ',Occurs(MyList,k))end.
Пример3 8 12 5 16 9 5 -2 7 0 5 -1Среднее равно 5.583Введите элемент для поиска: 5Есть ли такой элемент в списке? TrueКоличество таких элементов равно 3