С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 04.12.2018
Сообщений: 20
1

Написать программу поиска в заданном массиве повторяющихся чисел

24.01.2019, 15:40. Показов 933. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Написать программу поиска в заданном массиве M[8x10] повторяющихся чисел, т.е чисел, которые встречаются в массиве 2 и более раз.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.01.2019, 15:40
Ответы с готовыми решениями:

Написать программу поиска номеров строки и столбца минимального и максимального элемента в заданном двухмерном массиве целых чисел
Написать программу поиска номеров строки и столбца минимального и максимального элемента в заданном...

Написать программу для поиска в заданном массиве В, состоящем из 10-ти элементов, третьего положительного
Написать программу для поиска в заданном массиве В, состоящем из 10-ти элементов, третьего...

Написать программу поиска чисел AHH в массиве из 10 чисел
Найти в массиве, состоящем из десяти однобайтных двоичных чисел, нечетные, умножить каждое на 2 и...

Создать программу для поиска первого нечетного элемента в заданном массиве методом бинарного поиска
Бинарный поиск Первый нечетный, помогите пожалуйста.

1
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
24.01.2019, 16:36 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses crt;
var a:array[1..15,1..15] of integer;
    m,n,i,j,mn,mx,k,p,q:integer;
begin
randomize;
repeat
writeln('Введите размеры матрицы от 2 до 15');
readln(m,n);
until(m in [2..15])and(n in [2..15]);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:3);
    if i+j=2 then
     begin
      mn:=a[1,1];  //найдем минимум и максимум
      mx:=a[1,1];
     end
    else if a[i,j]<mn then mn:=a[i,j]
    else if a[i,j]>mx then mx:=a[i,j];
   end;
  writeln;
 end;
writeln('Повторяющиеся элементы массива и их количество');
p:=0;
for k:=mn to mx do
 begin
  q:=0;
  for i:=1 to m do
  for j:=1 to n do
  if a[i,j]=k then inc(q);
  if q>1 then
   begin
    inc(p);
    write(k:3,'=',q:3,' ');
    if p mod 8=0 then writeln;
   end;
 end;
if p=0 then write('Повторяющихся элементов нет')
end.
0
24.01.2019, 16:36
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.01.2019, 16:36
Помогаю со студенческими работами здесь

В заданном одномерном массиве из n элементов найти количество повторяющихся чисел
В заданном одномерном массиве из n элементов найти количество повторяющихся чисел. Он выводит если...

Написать программу бинарного поиска заданного значения в упорядоченном одномерном массиве целых чисел
Написать программу бинарного поиска заданного значения в упорядоченном одномерном массиве целых...

Написать программу поиска заданного значения в отсортированном массиве методом двоичного поиска
Помогите с программой, вот задание: Написать программу поиска заданного значения в...

Алгоритм поиска количества простых чисел в заданном массиве
алгоритм поиск количества простых чисел в заданном целочисленном массиве из 50 элементов. Помогите...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Как программировать под HCL Notes и создавать свои продукты на ее основе
InfoMaster 11.01.2025
HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой мощную платформу для разработки корпоративных приложений, которая сочетает в себе функции электронной почты, календаря,. . .
Как работать с SVN (Subversion)
InfoMaster 11.01.2025
Введение Система контроля версий является неотъемлемой частью современного процесса разработки программного обеспечения. Она обеспечивает управление изменениями в коде, позволяет отслеживать. . .
Использование GraphQL в JavaScript
InfoMaster 11.01.2025
Введение в GraphQL и его преимущества В современной разработке веб-приложений эффективный обмен данными между клиентом и сервером играет ключевую роль. GraphQL представляет собой язык запросов и. . .
Администрирован­­­­ие Git, продвинутые техники работы с Git
InfoMaster 11.01.2025
Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .
Что такое HCL Notes и как с ним работать
InfoMaster 10.01.2025
HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .
Как работать с Git из Windows и Visual Studio
InfoMaster 10.01.2025
Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .
Аналог оператора switch case в Python
InfoMaster 10.01.2025
Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .
Отличия абстрактного класса от интерфейса
InfoMaster 10.01.2025
В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .
Как работать в Git
InfoMaster 10.01.2025
Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .
Реализация передвижения персонажа в Unity3d на C#
InfoMaster 10.01.2025
Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих
InfoMaster 10.01.2025
В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru