Множества: Даны целые числа а1,.....,Аn. Вывести на печать сообщение - имеется ли в последовательности х повторяющиеся числа

[lialia]

Даны целые числа а1,.....,Аn (могут быть повторяющиеся).Вывести на печать сообщение - имеется ли в последовательности хотябы одна пара совпадающих чисел.Нужно решить не применяя массивы,только с помощью множеств. Помогите пожалуйста!!!!

[Serge_Bliznykov]

глупые задания для вас придумывают..
задача может быть решена через множества только в том случае, если числа укладываются в диапазон [0..255] (или все они могут быть приведены к этому диапазону).

Если это Вас не смущает, то:

var sNum : set of byte;
  A : byte;
  i,n : integer;
  isDubli : boolean;
begin
  sNum := [];
  WriteLn('  kolichestvo chisel:');
  Readln(n);

  isDubli := false;
  for i:=1 to n do begin
    Write(' A[',i,'] = ');
    Readln(A);
    if A in sNum then isDubli := true
    else Include(sNum, A);
  end;
  if isDubli then
       WriteLn(' Est` hotya by odna para ')
  else
       WriteLn(' Net takih par! ');
  Readln
end.

[lialia]

спасибо большое!!

[Poma][a]

[оффтоп]

если числа укладываются в диапазон [0..255]

Эх да, не хорошее ограничение..

задача может быть решена через множества только в том случае

но тут можно поспорить Если заглянуть в кишки множества, то увидим, нечто подобное на "массив флагов".. И если сделать маленькую поправочку, что множеством будем считать не только зарезервированное слово set, а еще и булевский массив, то наверное, можно создать этот массив и баловаться уже им, как множеством.. [/оффтоп]
P.S. Дико извиняюсь за отклонение от темы