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

[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 вопрос...
Так можно задать?

Program LabRob2;

const
  n= 12;  {кол-во множеств}
  l= 255;  {кол-во возможных элементов}
  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
Randomize;
  {зададим массив 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)]);

  {считаем мощность каждого множества и одновременно ищем максимум}
  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. 

Не будет ли это ошибкой?

[Lapp]

Так можно задать?

    for j:=1 to l do Include(s[i],c[Random(l)]);

Не будет ли это ошибкой?

Конечно, будет. Random(l) принимает значения от 0 до l-1, а диапазон индекса массива c - от 1 до l. Думаешь, я прибавил 1 просто, чтоб размять пальцы?