Напишите программу, которая выделяет в другой массив все элементы исходного массива, которые встречаются более одного раза. Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 .
Выходные данные
Программа должна вывести содержимое полученного массива: все элементы исходного массива, которые встречаются более одного раза, в том же порядке. Если таких нет, нужно вывести число 0.
НА С++
linochka1083
2
28.11.2020 16:08
38
Другие вопросы по теме Информатика
hzhwhsbsh
16.12.2019 18:15
alenabarsukova20
04.02.2022 09:20
ДавыдоваЮлия5678
04.02.2022 09:22
burmistrowkiri
04.02.2022 09:25
sherlock0w
16.01.2022 14:53
longassride
16.01.2022 15:04
adobycina43
16.01.2022 15:06
sunlight2
16.01.2022 15:07
Популярные вопросы
- Как египтяне именовали кота и змея кто всегда побеждает в схватке...
3 - Выбери нужный ответ. имя придлогательное отвечает на вопросы:...
2 - 100 ! дайте ответы с 1 по 14 тесты! ...
3 - Определите основные черты сходства и отличия между разными тканями,...
1 - Обдумайте ниже суждения. выделите те, которые, на ваш взгляд,...
3 - 5результаты измерение и расчетов заносят в таблицу...
2 - 50 ів ! дуже потрібно! річ посполита дослівно означає справа суспільна...
2 - Построить сечение тетраэдра abcd плоскостью, проходящей через...
1 - Представьте в виде степени с основанием x выражение (-x3)6*(-x6)3:...
1 - Назовите приложения инструментальной среды конечного пользователя...
3
var
a, b: Array[1..10000] Of Byte;
rep: Set Of Byte;
i, n, m: Word;
begin
rep := []; m := 0;
ReadLn(n);
for i := 1 to n do
begin
Read(a[i]);
if (a[i] in rep)
then
begin
Inc(m);
b[m] := a[i];
end
else
Include(rep, a[i]);
end;
WriteLn;
if (m = 0)
then
Write(0)
else
for i := 1 to m do
Write(' ', b[i]);
end.
Объяснение: Вроде правильно