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

@moDorks · Регистрация: 18.01.2015

Студворк — интернет-сервис помощи студентам

Пусть даны целые числа a1, a2, …, an, среди которых могут быть повторяющиеся. Составьте новый массив из чисел, взятых по одному из каждой группы равных членов данной последовательности.

Вот мое решение, однако это кастыль

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
const N = 50;
var
    arr: array[1..N] of byte;
    i, k,kol,m: byte;
    arrB: array [1..50] of byte;
begin
    kol:=0;
    randomize;
    for i:=1 to N do begin
        arr[i] := random(80);
        write(arr[i]:3);
    end;
    writeln;
 
    for i:=1 to N-1 do 
        for k:=i+1 to N do 
            if arr[i] = arr[k] then begin
                
                arrB[i]:=arr[i];
                kol:=kol+1;
                      
                
            end;
            for i:=1 to kol do
            begin 
    if ((arrB[i]>0) or (arrB[i] < 0)) then
                      writeln('Одиннаковые элементы в B массиве: ',arrB[i]);end;
    
end.

ФедосеевПавел · 04.11.2016, 22:52

Можно решить так - отсортировать исходный массив, а потом взять число и пропускать равные ему, потом взять другое число и снова пропускать.

@vint-81 · 05.11.2016, 00:22

Сообщение от ФедосеевПавел

Можно решить так - отсортировать исходный массив, а потом взять число и пропускать равные ему, потом взять другое число и снова пропускать.

нет, не так...
нет там исходного массива(и чисел этак 1000000...)
каждое проверять, и если такого еще не было добавлять в массив, имхо...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n=10;
type mas=array[1..n]of integer;
var a:mas;
    aa,n1,i,j:integer;
    f:boolean;
begin
 read(aa); a[1]:=aa; n1:=1;
 for i:=2 to n do
  begin
   j:=1; f:=false;
   read(aa);
   while (j<=n1)and(not f) do
    begin
     if aa=a[j] then f:=true;
     inc(j)
    end;
   if not f then begin n1:=j; a[n1]:=aa end
  end;
 for i:=1 to n1 do write(a[i],' ');
 writeln
end.

@Puporev · 05.11.2016, 11:29

Сообщение от vint-81

нет там исходного массива(и чисел этак 1000000...)

Зачем додумывать за ТСа?
В задании написано

Сообщение от moDorks

Составьте новый массив

Значит есть и старый, т.е. исходный, а про размеры его вообще не говориться.

@vint-81 · 05.11.2016, 12:31

Сообщение от Puporev

а про размеры его вообще не говориться.

говорится...

Сообщение от moDorks

числа a1, a2, …, an

@moDorks · 05.11.2016, 18:37 **[ТС]**

По сути я и не разобрался сам немного... вроде есть старый, а что тогда означает "новый"?

@Puporev · 05.11.2016, 18:40

Сообщение от moDorks

а что тогда означает "новый"?

Тот который нужно составить по условию задачи.

ФедосеевПавел · 05.11.2016, 21:45

Сообщение от ФедосеевПавел

Можно решить так - отсортировать исходный массив, а потом взять число и пропускать равные ему, потом взять другое число и снова пропускать.

Сообщение от vint-81

нет, не так...
нет там исходного массива(и чисел этак 1000000...)
каждое проверять, и если такого еще не было добавлять в массив, имхо...

Думаю, что применим каждый подход, но приоритеты разные - скорость или память.

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

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании 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 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

ФедосеевПавел Модератор 8665 / 4502 / 1670 Регистрация: 01.02.2015 Сообщений: 13,928 Записей в блоге: 13
	04.11.2016, 22:52
	Можно решить так - отсортировать исходный массив, а потом взять число и пропускать равные ему, потом взять другое число и снова пропускать. 0

@moDorks 0 / 0 / 0 Регистрация: 18.01.2015 Сообщений: 88
	05.11.2016, 18:37 [ТС]
	По сути я и не разобрался сам немного... вроде есть старый, а что тогда означает "новый"? 0

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

Решение