Школьная задача, Массив (последовательность чисел) Опции

[Сержик]

Задали задачу, написал код но что то не проходит ( последний раз писал 7 лет назад)
Дана последовательность целых чисел a1, a2, ..., am . Постройте на ее основе новую
последовательность, содержащую только те числа, которые в исходную
последоватеьность входят по одному разу.

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n,i,j:byte;
f,k:boolean;
begin
clrscr;
randomize;
repeat
write('Размер последовательности A до ',nmax,'n=');
readln(n);
until n in [1..nmax];
writeln('Последовательнось:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:3);
 end;
writeln;
writeln;
writeln('Входят по одному разу:');
k:=false;
for i:=1 to n do
 begin
  f:=true;
  for j:=1 to n do
  if(a[i]=a[j])and(i<>j) then f:=false;
  if f then
   begin
    write(a[i]:3);
    k:=true;
   end;
  end;
if not k then write('Таких чисел нет');
end.

Что то не пойму в чем дело,почему не работает, задачу помогал делать друг (основная работа его)
Буду благодарен за помощь

[Федосеев Павел]

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

Другие способы будут или диннее (сначала отсортировать а потом считать количество вхождений) или специфичны для конкретного набора данных (сортировка подсчётом - когда диапазон чисел в наборе очень ограничен). Наверняка есть ещё другие алгоритмы.

Подведу итог - короче отформатированный исходник уже не станет (только длиннее), и это и есть окончательная редакция программы для этой задачи.

--------------------
Может быть, топикстартер не может выразить мысль хочет сказать, что выходная последовательность должна быть сохранена в отдельном массиве, а уже потом выведена на экран? Тогда

uses
  crt;
const
  nmax = 100;
var
  a, b: array [1..nmax] of integer;
  n,i,j, k: byte;
  f: boolean;
begin
  clrscr;
  randomize;
  repeat
    Write('Размер последовательности A до ',nmax,' n=');
    readln(n);
  until n in [1..nmax];
  writeln('Последовательнось:');
  for i:=1 to n do
    begin
      a[i]:=random(10);
      Write(a[i]:3, ' ');
    end;
  writeln;
  writeln;
  k:=0;     {индекс в массиве b}
  for i:=1 to n do
    begin
      f:=true;
      for j:=1 to n do
        if (a[i]=a[j])and(i<>j) then f:=false;
      if f then
        begin
          Inc(k);
          b[k]:=a[i];
        end;
    end;
  WriteLn;
  writeln('Входят по одному разу:');
  if k=0 then Write('Таких чисел нет');
  for i:=1 to k do
    Write(b[i]:3);
  WriteLn;
  readln;
end.

Сообщение отредактировано: Федосеев Павел - 9.04.2012 23:52