Вопрос по информатике:
Создайте программу, которая будет симулировать бросок игрального кубика. Каждый бросок будет генерироватся случайно число в депозоне [1,6]. Кубик перекидывается N раз. После чего, программа выводит на экран сколько раз выпало каждое значение. И отдельно выводится информация о том, какое значение выпадало больше всего раз. N целое число, которое вводится с клавиатуры
Язык Pascal and.net
- 23.01.2018 02:43
- Информатика
- remove_red_eye 18256
- thumb_up 14
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),1,6); a.Println;
var s:=a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0]);
s.Println;
var max:=s.MaxBy(t->t[1]);
Writeln('Наиболее частое значение: ',max[0])
end.
Пример
n= 50
1 2 5 5 4 2 5 3 5 3 5 5 5 4 2 4 3 3 3 3 6 6 5 4 2 5 5 5 4 5 3 1 5 1 1 3 6 2 6 6 5 2 6 5 2 5 5 5 6 5
(1,4) (2,7) (3,8) (4,5) (5,19) (6,7)
Наиболее частое значение: 5
- 24.01.2018 19:54
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.