Определить количество максимальных элементов в последовательности

@Iyna · Регистрация: 09.11.2020

Author24 — интернет-сервис помощи студентам

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

F#

let maxel s = 
    let max = Seq.max s
    System.Console.WriteLine()
seq{1;2;3;323232323;5;5;5;5;5;6;7;7;3;4;4;23;34;54;65;76;34;32;12;12;12;12;1;23232;23232;323232323;323232323;23343} |> maxel |> printfn "%A"
System.Console.WriteLine(max)

@Shamil1 · 07.11.2022, 20:54

Вывести количество макисмальных элементов списка

@diadiavova · 08.11.2022, 06:10

F#

let inline maxcount l = Seq.countBy id l |> Seq.sortByDescending snd |> Seq.head |> snd
 
 
seq{6;1;6;2;3;4;6;5;6;7;6} |> maxcount |> printfn "%i"
[6.0;1.0;6.0;2.0;3.0;4.0;6.0;5.0;6.0;7.0;6.0]|> maxcount |> printfn "%i"

Новые блоги и статьи
Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .

@Shamil1 Модератор 3079 / 2228 / 464 Регистрация: 26.03.2015 Сообщений: 8,662
	07.11.2022, 20:54	2
	Вывести количество макисмальных элементов списка 0

	08.11.2022, 06:10