Программа PascalABCNET

[Argenta]

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

program SequenceOfNumbers;

var
    n, j, i, k: integer;
    a: array [1..100] of integer;
  
begin

   Writeln ('Введите количество членов последовательности ');
   Readln(n); 
   for i:=1 to n do begin 
      Writeln ('Введите значение ', i,'-го члена последовательности ');
      Readln (a[i]); 
      end;
   for i:=1 to n-1 do 
   for j:=i+1 to n do 
      if a[i] > a[j] then begin
         k:= a[i]; 
         a[i]:= a[j]; 
         a[j]:= k;
         end;
   for i:=1 to n do
      if a[i]<>a[j] then 
         k:= a[i];
   for i:=1 to n do
   Writeln ('Числа, которые входят в последовательность по одному разу ', k)
   
end.

Подскажите,пожалуйста, что исправить в конце программы

[Alex11223]

Чтобы что-то исправить надо сначала узнать зачем. Что именно не так, почему вы решили, что надо что-то исправить именно в конце?

[Argenta]

program SequenceOfNumbers;

var
    n, j, i, k, S: integer;
    a: array [1..100] of integer;
  
begin

   Writeln ('Введите количество членов последовательности ');
   Readln(n); 
   for i:=1 to n do begin 
      Writeln ('Введите значение ', i,'-го члена последовательности ');
      Readln (a[i]); 
   end;
   for i:=1 to n-1 do 
      for j:=i+1 to n do 
         if a[i] > a[j] then begin
            k:= a[i]; 
            a[i]:= a[j]; 
            a[j]:= k;
         end;  
   Writeln ('Последовательность');
   for i:=1 to n do
      if a[i]<>a[i+1] then begin
         k := a[i];
         Write (k);
      end;
end.

Эта программа выводит и повторяющееся число последовательности. А вот как сделать, чтобы повторяющееся число не выводилось , я не могу догадаться

[Plague]

begin
  var n:=ReadInteger('Введите количество членов последовательности: ');
  var a:=ArrRandomInteger(n,0,10);
  a.Println;
  Println('Числа, которые входят в последовательность по одному разу: ');
  a.Distinct.Sorted.Println;
end.