Из массива удалить элементы, встречающиеся в массиве более одного раза

@Canstopmen · Регистрация: 17.05.2016

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

Из массива удалить элементы, встречающиеся в массиве более одного раза.
Пример: из массива A[7]: 9 3 4 9 1 0 0 должен получиться массив A[3]: 3 4 1.

@farced · 09.06.2016, 15:26

Pascal

var
a:array[1..1000] of integer;
i,j,ss,n:integer;
begin
writeln('Введите количество элементов в массиве:');
readln(n);
for i:=1 to n do
a[i] := random (10);
writeln;
write('Массив : ');
for i:=1 to n do
write(a[i],' ');
writeln;
write('Новый массив : ');
for i:=1 to n do
begin
ss:=0;
for j:=1 to n do
if a[i]=a[j]then inc(ss);
if ss=1 then write (a[i],' ');
end;
readln;
end.

@Cyber_Monster_ · 09.06.2016, 17:26

Pascal

begin
  var IStr:= ReadString('Введите числа через пробел: ').ToIntegers;
  IStr:= IStr.Where(x -> 1 = IStr.Count(y -> y = x)).Println('; ').ToArray;
end.

Для вещественных так:

Pascal

begin
  var IStr:= ReadString('Введите числа через пробел: ').ToReals;
  IStr:= IStr.Where(x -> 1 = IStr.Count(y -> y = x)).Println('; ').ToArray;
end.

@Canstopmen 0 / 0 / 0 Регистрация: 17.05.2016 Сообщений: 7
		1
	Из массива удалить элементы, встречающиеся в массиве более одного раза 09.06.2016, 14:14. Показов 2001. Ответов 2 Метки нет (Все метки) Из массива удалить элементы, встречающиеся в массиве более одного раза. Пример: из массива A[7]: 9 3 4 9 1 0 0 должен получиться массив A[3]: 3 4 1. 0

	09.06.2016, 17:26

Из массива удалить элементы, встречающиеся в массиве более одного раза

Решение