Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 1
Регистрация: 12.08.2014
Сообщений: 59

В массиве n на n найти количество одинаковых элементов

30.11.2015, 18:15. Показов 1221. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Такая задача:
В массиве n на n найтм количество одинаковых элементов,например массив
4 1 5
4 1 3
4 2 9
Должно вывести типа этого:
2 - 2 раза,4- 3 раза
Заранее спасибо.

Добавлено через 31 минуту
Извините торопился,то есть не 2 2 раза,а один 2 раза
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
30.11.2015, 18:15
Ответы с готовыми решениями:

Найти количество одинаковых элементов в массиве
как найти кол-во одинаковых элементов в масиве? в паскале

Найти количество одинаковых элементов в массиве из 8 или более элементов
Дан произвольный массив из более чем 7ми элементов. Нужно найти количество одинаковых пар элементов (А=B). Например в массиве {1, 2,...

В двумерном массиве найти количество одинаковых элементов
на мой взгляд для идея должна быть та же, что и для одномерного массива. только не работает... program ekz31; var a: array of...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33411 / 21521 / 8236
Регистрация: 22.10.2011
Сообщений: 36,922
Записей в блоге: 12
01.12.2015, 13:33
Лучший ответ Сообщение было отмечено Ринат1999 как решение

Решение

Используем возможности .NET-а:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const n = 3;
var
  a: array[1 .. n, 1 .. n] of integer := 
  (
    (4, 1, 5),
    (4, 1, 3),
    (4, 2, 9)
  );
 
var 
  dups : Dictionary<integer, integer> := new Dictionary<integer, integer>;
  i, j : integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      if dups.Keys.Contains(a[i, j]) then dups[a[i, j]] += 1 else dups[a[i, j]] := 1;
      
  foreach var p : KeyValuePair<integer, integer> in dups do
    if p.Value > 1 then writeln('Число: ', p.Key, ' -> ', p.Value);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.12.2015, 13:33
Помогаю со студенческими работами здесь

Найти количество одинаковых элементов в каждом массиве
Дан массивы X(x1,x2,…,x24) и Y(y1,y2,…,y24). Нужно найти сколько одинковых элементов в каждом массиве.

Найти количество одинаковых элементов в одномерном массиве
Здравствуйте, как определить количество одинаковых элементов в строке, если предположем массив из 5 элементов? вот мне нужно чтобы в строке...

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

Нужно найти наибольшее количество одинаковых элементов в массиве
Нужно найти наибольшее количество одинаковых элементов. #include &lt;stdio.h&gt; #include &lt;stdlib.h&gt; #include &lt;time.h&gt; ...

В массиве найти максимальное количество одинаковых положительных элементов
Сделайте пожалуйста В одномерном массиве найти максимальное количество одинаковых положительных элементов и максимальное количество...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru