1 / 1 / 0
Регистрация: 06.06.2010
Сообщений: 3

Сортировка и удаление повторов из массива

08.06.2010, 08:53. Показов 4051. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Целочислен массив а1...а20 ЗАПОЛНИТЬ СЛУЧАЙНЫМИ ЧИСЛАМИ от 1 до 12.вывести массив на экран.получить в порядке возрастания все различные ,неповторяящиеся числа из данного массива,воспользовавшись алгоритмом сортировки обменами 2.вывести массив на экран
помогите пожалуйста я экзамен пишу оч срочно надо
Спасибо большое заранее
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
08.06.2010, 08:53
Ответы с готовыми решениями:

Сортировка и удаление повторов из массива
Целочислен массив а1...а20ЗАПОЛНИТЬ СЛУЧАЙНЫМИ ЧИСЛАМИ от 1 до 12.вывести массив на экран.получить в порядке возрастания все различные...

Одномерные массивы. Вставка, удаление элементов массива. Перестановка элементов массива. Сортировка массива методом пузырька
Помогите пожалуйста! Дан массив, состоящий из N букв латинского алфавита а) Заполнить массив датчиком случайных чисел б)...

Как вывеести элементы массива без повторов?
Дан массив чисел и нужно вывести его без повторов, т.е например массив: 1 2 4 2 2 3 7 1 3 1 1 7 1 1 5 то результат будет :1 2 4 3 7 5

1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
08.06.2010, 09:00
Лучший ответ Сообщение было отмечено GUZ как решение

Решение

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
43
44
45
46
uses crt;
const n=20;
var a:array[1..n] of integer;
    m,i,j,k,x:integer;
begin
clrscr;
randomize;
writeln('Ishodnyj massiv:');
for i:=1 to n do
 begin
  a[i]:=random(12)+1;
  write(a[i],' ');
 end;
writeln;
m:=n;
{udalenie povtorov}
i:=1;
while i<=m do
 begin
  j:=i+1;
  while j<=m do
   begin
    if a[j]=a[i] then
     begin
      for k:=j to m-1 do
      a[k]:=a[k+1];
      m:=m-1;
      end
     else j:=j+1;
   end;
  i:=i+1;
 end;
{sortirovka obmenom}
for i:=1 to m-1 do
for j:=i+1 to m do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Massiv bez povtorenij:');
for i:=1 to m do
write(a[i],' ');
readln
end.
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
08.06.2010, 09:00
Помогаю со студенческими работами здесь

Удаление повторов из числа
Введите число и убирите ближние повторы. Ввели 23444552 получили 23452

Вводится строка, вывести символы строки в порядке убывания количества повторов и указанием числа их повторов
вводится строка, вывести символы строки в порядке убывания количества повторов и указанием числа их повторов

Подсчёт количества повторов элементов одномерного массива
В процессе решения большой задачи появилась малая: нужно подсчитать, сколько раз в массиве содержится то или иное значение (иными словами,...

Lisp -> Erlang: Сортировка списка и удаление повторов
Присоединюсь к проблеме Limon4ig... Та же проблема, перевод из лиспа в Erlang, только задание функций немного больше (просто переопределены...

Сцепка текста в ячейках, если совпадают значения в столбце А, удаление повторов имен, удаление лишних строк
Добрый день, подскажите, как решить задачу: Есть список организаций с контактами. Одна организация может быть представлена разным...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

Новые блоги и статьи
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
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
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru