В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
dashutkazel1221
dashutkazel1221
28.03.2023 20:45 •  Информатика

Составить функцию, которая находит среднее арифметическое всех элементов непустого списка l. составить функцию, которая определяет, входит ли элемент е в список l. составить функцию, которая подсчитывает число вхождений элемента с указанным пользователем значением в список l. (паскаль)

Показать ответ
Ответ:
Vasilina88
Vasilina88
16.08.2020 18:49
// 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
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота