Множество Опции

[Sav93]

Задача: Есть N множеств, найти множество содержащей больше различных элементов, все возможные елементы множества заданы в массиве С.

 
Program LabRob2;
Uses CRT;
Type
    TypeSet = set of byte;
Var
   C:array [1..12] of TypeSet;
   r,n,j,i,k:byte;
BEGIN
ClrScr;
WriteLn('Vvedite elementi mnozhestva: ');
 Randomize;
 For i:=1 to 12 Do
 Begin
  r:=Random(9);
  Include(C[i],r);
end;
ReadKey;
END.

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

[Sav93]

Вроде все ясно, кроме 1-го... зачем нам d?

[Lapp]

Вроде все ясно, кроме 1-го... зачем нам d?

Переменная d не относится к решению, она относится только к первоначальному заданию условий, а именно - к заданию массива C. Сказано, что этот массив содержит все возможные элементы системы множеств. Но как он задается - не сказано. Вот я и задал его, как захотел - промежутком чисел, начинающимся с некоторого числа, которое я назвал d. Длина же этого промежутка равна длине массива C. Если хочешь, можешь задавать значения элементов C как-то иначе - вводом с клавы или случайно, или еще как-нить..

Пока я просматривал код, чтобы вспомнить, что такое d, я заметил, что генерация множеств s[i] у меня сделана не очень хорошо.. Ниже я даю вариант более эффективного заполнения множеств (к тому же, без использования дополнительного множества t).

Program LabRob2;

const
  n= 12;  {кол-во множеств}
  l= 50;  {кол-во возможных элементов}
  d= 10;

Type
  TypeSet = set of byte;

Var
  s:array [1..n] of TypeSet;
  c: array [1..l] of byte;
  i,j,k,m,max: byte;

BEGIN
  {зададим массив c (в данном случае просто от d+1 до d+l}
  for i:=1 to l do c[i]:=i+d;

  {заполняем множества случайным образом}
  For i:=1 to n Do
    for j:=1 to l do Include(s[i],c[Random(l)+1]);

  {считаем мощность каждого множества и одновременно ищем максимум}
  max:= 0;
  k:= 1;
  for i:=1 to n do begin
    m:=0;
    for j:=1 to l do if c[j] in s[i] then Inc(m);
    if m>max then begin
      max:= m;
      k:= i
    end
  end;
  writeln('множество номер ',k,' имеет максимальное количество элементов (',max,')');
  readln
END.