Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
 Аватар для SonnyPanda
0 / 0 / 0
Регистрация: 20.10.2013
Сообщений: 13

В отсортированном одномерном массиве нужно найти повторяющиеся числа и вывести их на экран

20.12.2014, 22:29. Показов 1456. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
здравствуйте.
при написании программы столкнулась со следующей проблемой.
в отсортированном одномерном массиве нужно найти повторяющиеся числа и вывести их на экран.
условие "if a[i]=a[i-1]" делает не совсем то, что нужно.
например, если срока будет "1 1 1 2 5 9 9 9 9", то в итоге программа выведет две единицы и три девятки.
как поставить условие так, чтобы повторяющиеся числа выводились только по одному разу?
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.12.2014, 22:29
Ответы с готовыми решениями:

В случайным образом заполненном массиве найти и вывести на экран числа, повторяющиеся два и более раз
Всем привет,такое задание,только начал учить массивы еще ничего понять не могу. Кто может помочь ? Вот задание : 1. В случайным...

В одномерном массиве из положительных и отрицательных чисел найти отрицательные числа и их сумму и вывести на экран.
Постараюсь понять как решать на основе ваших решений. Спасибо. 2. В одномерном массиве из положительных и отрицательных чисел найти...

В данном массиве из 24 целых чисел найти все те, которые больше числа 10. Вывести их в отсортированном порядке по возрастанию
В данном массиве из 24 целых чисел найти все те, которые больше числа 10. Вывести их в отсортированном порядке по возрастанию ...

2
171 / 57 / 45
Регистрация: 21.06.2012
Сообщений: 263
21.12.2014, 11:42
Лучший ответ Сообщение было отмечено SonnyPanda как решение

Решение

вот так:
Pascal
1
2
3
4
5
temp:= a[1]+1;
for i:=1 to n-1 do
begin
  if (a[i]=a[i+1]) and (a[i]<>temp) then begin temp:=a[i]; writeln (a[i]; end
end;
или так:
Pascal
1
2
3
4
5
6
povtor:=0;
for i:=1 to n-1 do
begin
  if a[i]=a[i+1] then inc (povtor) else povtor:=0;
  if povtor = 1 then writeln (a[i]);
end;
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33379 / 21503 / 8236
Регистрация: 22.10.2011
Сообщений: 36,899
Записей в блоге: 11
21.12.2014, 13:31
Или вот так:
Pascal
1
2
3
4
5
6
7
8
9
{$reference System.Core.dll}
uses System.Linq;
  
type gr = IGrouping<integer, integer>;
begin
  var a : array of integer := new integer[9](1, 1, 1, 2, 5, 9, 9, 9, 9);
  writeln(string.Join( ' ', a.GroupBy((i : integer) -> i).Where((x : gr) -> x.Count() > 1).
    Select((x : gr) -> IntToStr(x.Key)).ToArray() ));    
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.12.2014, 13:31
Помогаю со студенческими работами здесь

Вывести на экран все простые числа в одномерном массиве
Вывести на экран все простые числа в одномерном массиве. Как поняла будет что то похожее на это...

Найти и вывести на экран повторяющиеся элементы массива а, которые отсутствуют в массиве В
найти и вывести на экран повторяющиеся элементы массива а, которые отсутствуют в массиве В.

Дана последовательность чисел в одномерном массиве. Вывести на экран все числа, попадающий в отрезок [a, b]
Вывести на экран все числа, попадающий в отрезок , отсортировав их в порядке возрастания. Требуется помощь

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

В одномерном целочисленном массиве найти простые числа и вывести их номера.
1. В одномерном целочисленном массиве найти простые числа и вывести их номера. 2. В двухмерном Массиве MxN найти строки с...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru