Удаление из массива повторяющихся элементов

@Элли · Регистрация: 24.12.2009

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

Как в массиве убрать одно из повторяющихся чисел???
тоесть дан массив 1,1,2,3,4,6,3,2,1 получить 1,2,3,4,6

Добавлено через 12 минут
Люди хелп!!!
очень нуна!!!

@кот Бегемот · 24.12.2009, 21:50

Pascal

var
a:array[1..100]of integer;
i,j,k,n:integer;
begin
writeln('vvedite kol-vo elementov');
readln(n);
writeln('vvedite elementy');
for i:=1 to n do
read(a[i]);
writeln;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if a[i]=a[j]then inc(k);
if k=1 then write (a[i],' ');
end;
readln;
end.

@pikusfikus · 24.12.2009, 21:52

Pascal

program massiv;
var
a,b:array[1..100] of integer;
i,k,m,j,n:integer;
begin
k:=0;
writeln('kol-vo elementov massiva');
readln(n);
writeln('massiv');
write('[');
randomize;
for i:=1 to n do begin
a[i]:=random(10)-3;
write(a[i]:3);
end;
writeln(']');
  for i:=1 to n do begin
   m:=0;
   for j:=1 to k do
   if (a[i]=b[j]) then
    inc(m);
    if m=0 then begin
     inc(k);
     b[k]:=a[i];
    end;
  end;
writeln('polychenij massiv');
write('[');
for i:=1 to k do
write(b[i]:3);
writeln(']');
end.

@Элли · 24.12.2009, 21:59 **[ТС]**

пасябки!!! будем испытывать!!!=)

Добавлено через 5 минут
то что мне нужно!!! спасибо огромное!!!

@legozaur · 22.11.2013, 22:32

Дан неупорядоченный массив целых чисел. Удалить в нем все элементы, встречающиеся более 1 раз.
Немного изменил вышеупомянутый код и говорю спасибо)
Для изменения количества элементов в массиве вручную меняйте n в разделе const

Pascal

uses crt;
const n=10;
type t=array[1..n] of integer;
var a,b:t;
    i,k,m,j:integer;
begin
writeln('Исходный рандомный массив');
randomize;
for i:=1 to n do begin
   a[i]:=random(10);
   write(a[i]:3);
   end;
for i:=1 to n do begin
   m:=0;
   for j:=1 to k do
   if (a[i]=b[j]) then
   inc(m);
   if m=0 then begin
      inc(k);
      b[k]:=a[i];
      end;
   end;
writeln;
writeln('Изменённый массив');
for i:=1 to k do
write(b[i]:3);
end.

@Элли 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 8
		1
	Удаление из массива повторяющихся элементов 24.12.2009, 21:39. Показов 38358. Ответов 4 Метки нет (Все метки) Как в массиве убрать одно из повторяющихся чисел??? тоесть дан массив 1,1,2,3,4,6,3,2,1 получить 1,2,3,4,6 Добавлено через 12 минут Люди хелп!!! очень нуна!!! 0

@Элли 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 8
	24.12.2009, 21:59 [ТС]	4
	пасябки!!! будем испытывать!!!=) Добавлено через 5 минут то что мне нужно!!! спасибо огромное!!! 0

	22.11.2013, 22:32