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

@Trollfase1998 · Регистрация: 25.10.2014

Даны целые числа а1,а2...а15 ( могут быть повторяющиеся члены).
Получить все числа, которые входят в последовательность по одному разу.

Вот код, но он выводит числа, которые повторяются, а нужно наоборот, те которые не повторяются, исправте пожалуйста, чтобы было правильно.

Pascal

const n=15;
var a:array[1..n]of integer;
    i,g,b:integer;
begin
    for i:=1 to 15 do
    readln(a[i]);
    writeln('в массив входят ро 1 разу:');
    for i:=1 to 15 do
    for g:=1 to 15 do
    if a[i]<>a[g] then
    begin
     b:=a[i];
     a[i]:=a[g];
     a[g]:=b;
    end;
    writeln(a[g]);
end.

@CodeR · 21.11.2014, 12:36

Pascal

const
  n = 15;
 
var
  a: array[1..n] of integer;
  i, g, b: integer;
 
begin
  for i := 1 to n do
    read(a[i]);
  writeln('в массив входят по 1 разу:');
  for i := 1 to n do
  begin
    b := 0;
    for g := 1 to n do
      if a[i] = a[g] then inc(b);
    if b = 1 then write(a[i], ' ');
  end;
end.

@Trollfase1998 · 21.11.2014, 21:46 **[ТС]**

Небольшой вопрос, я просто не очень разбираюсь, а зачем здесь использовалась процедура inc?

@JokeR.BY · 21.11.2014, 22:07

Trollfase1998, это инкремент

Pascal

1	inc(i) <-> i:=i+1

@Trollfase1998 0 / 0 / 0 Регистрация: 25.10.2014 Сообщений: 21
	21.11.2014, 21:46 [ТС]	3
	Небольшой вопрос, я просто не очень разбираюсь, а зачем здесь использовалась процедура inc? 0

Опции темы