Обработка одномерных массивов

[Pepsik]

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

[Pein95]

а в чем проблема?
напишыте код, обесните в чем проблема и мы поможем... но не сделаем за вас.

[Pepsik]

for i:=1 to n-1 do  
 begin 
   k:=a[ i ]; 
   flagEquale:=false;  
   for j:=1 to n do  
     if (a[j]=k) and (j<>i) 
        then flag:=true; 
   if not flag 
     then write (a[ i ]) 
 end;

ну вот набросал что-то. это нужно оформить в подпрограмму.
и теперь, если вам не сложно, подскажите, как всё собрать в полноценную программу.
задание такое: Получить упорядоченную по возрастанию последовательность из чисел, которые входят в данную последовательность по одному разу.
Это то, что я писал, но это естественно не работает=(

const n=6;
type t_arr=array[1..n]of integer;

procedure read_arr(var a:t_arr);
var i:byte;
begin
 for i:=1 to n do
      read(a[i]);
  end;
  
procedure write_arr(var a:t_arr; n:integer);
var i:byte;
begin
for i:=1 to n do
write(a[i],' ');
end;

function is_sort(a:t_arr;n:integer):boolean;
var i:byte;
flag:boolean;
begin
i:=1;
while (i<n) and (a[i]<a[i+1]) do
i:=i+1;
is_sort:=i=n;
end;

var a:t_arr;i,k,j:byte; flag:boolean;
 begin
 read_arr(a);
begin
for i:=1 to n-1 do
 begin
   k:=a[ i ];
   flag:=false;
   for j:=1 to n do
     if (a[j]=k) and (j<>i)
        then flag:=true;
   if not flag then
   write (a[ i ])
 end;
 end;
 write_arr(a,n);
 readln
 end.

[Pein95]

http://progaem.forum2x2.ru/t54-topic google вам в помощь вот сама простая сортировка масива

[Alex11223]

Чот не понял, что вы хотели сделать. Я бы так делал: отсортировал массив по возрастанию\убыванию (гугл сортировка пузырьком) и потом проверял есть ли рядом с числом равные ему.

[Pepsik]

написал так. но программа выполняется немного не так.
нужно, чтобы из последовательности 9 3 5 6 3 2 5 8 --> 2 6 8 9, а у меня получается 2 3 5 6 8 9. Как это исправить???(

program gh;
const n=8;
type t_arr=array[1..n] of integer;

procedure read_arr(var a:t_arr);
var i:byte;
begin
 for i:=1 to n do
      read(a[i]);
end;

procedure bubble(var a: t_arr; n: integer);
var i, j, t: integer;
begin
for i := 1 to n do
for j := n downto i+1 do
if a[pred(j)] > a[j] then
begin
t := a[pred(j)];
a[pred(j)] := a[j];
a[j] := t;
end;
end;

var
  a,b:array[1..n] of integer;
  i,j,m,k:integer;
begin
  read_arr(a);
  writeln('ввод последовательности: ');
   bubble(a, n);
 for i:=1 to n do
  begin
    write(a[i]:3,' ')
  end;
  writeln;
  m:=0;
  for i:=1 to n do
  begin
    k:=0;
    for j:=1 to m do
      if a[i]=b[j] then
        inc(k);
    if k=0 then
    begin
      inc(m);
      b[m]:=a[i]
    end;
  end;
  writeln('результат: ');
  for i:=1 to m do
    write(b[i]:3,' ');
end.

[Alex11223]

Потому что все числа 1 раз будут занесены в массив b. И проверять каждый раз весь массив b во вложенным цикле нет смысла, вы же отсортировали массив а.
Кстати, вместо k лучше использовать тип boolean. И в задании вроде просили оформить это в виде подпрограммы (процедуры).

[Pepsik]

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

Потому что все числа 1 раз будут занесены в массив b. И проверять каждый раз весь массив b во вложенным цикле нет смысла, вы же отсортировали массив а.

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

[Alex11223]

Например, так:

m:=0;
for i:=1 to n-1 do
begin
   if a[i]=a[i+1] then
   begin
      inc(m);
      b[m]:=a[i];
   end;
end;

for i:=1 to n do
begin
   f:=true;
   for j:=1 to m do
      if a[i]=b[j] then f:=false;
   if (f) then вывод a[i] и т.д.
end;

[Pepsik]

Alex11223, прости, что я так сильно туплю... но
в конце я вывожу b[i] и получается так:
2 4 1 2 3 5 3 7-> 2 3
т.е. получается, что задание выполняется наоборот... выводятся повторяющиеся
как исправить?((