// 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
Я любитель природы, и правда,там столько красок,тепла.Вот был один случай: я гуляла во дворе и поссорились с подругой,был солнечный день.Ну и ладно-подумала я,-захочет, сама извинится. Но вот началась гроза,я её не боюсь в моя подруга боится.Моя подруга ломала цветы но я была не такая,я была против.Но вот с моей подругой что-то случилось, она стала беречь природу. Любить её.Но внезапно на моей голове очутился красивый венок из ромашек. Я всё поняла. Природа;как Бог все видит,мою подругу одарила она любить её,а мне,за мой оберег к ней она подарила красивый венок из ромашек! вообщем могу сказать,кто природу не тревожит тому она вот и
// Внимание! Если программа не работает, обновите версию!
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