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

[Athen]

type food = ( broad,butter,milk,meat,fish,salt,cheese,saucers,sugar,tea,cafe);
assort = set of food;
shop = array[1..20] of assort;
Описать процедуру Nal(sh, A), которая по информации из массива Sh типа shop (Sh(i) – это множество продуктов, имеющихся в i-м магазине) присваивает параметру А типа assort множество всех продуктов, которые есть во всех магазинах.

начала делать так:

uses crt;
type food = ( broad,butter,milk,meat,fish,salt,cheese,saucers,sugar,tea,cafe);
    assort = set of food;
    shop = array[1..20] of assort;
procedure nal(sh:shop; a:assort);
 var  i,m,p,j:integer;
 begin
  writeln('vvedite kol-va magazinov');
  readln(m);
  for j:=1 to m do begin
    writeln('vvedite kol-vo productov');
    readln(p);
    writeln('vvedite productu,imeushiesya v magazine: broad,butter,milk,meat,fish,salt,cheese,saucers,sugar,tea,cafe');
    for i:=1 to p do readln(sh[i]);
    for i:=1 to p do
     if sh[i] in shop then


  readln;
  End.

че-то теперь ступор какой-то... наверн за лето забыла все

[volvo]

Вот пример решения подобной задачи:
Примеры решения задач с использованием множеств

[Athen]

сделала как в примере, но почему-то не пашет....

uses crt;
const n=3;
type food = ( broad,butter,milk,meat,fish,salt,cheese,saucers,sugar,tea,cafe);
    assort = set of food;
    shop = array[1..3] of assort;
const
     s:array[food] of string =('broad','butter','milk','meat','fish','salt','cheese','saucers','sugar','tea','cafe');
     stores: shop = (
     [broad,butter,milk,meat,fish],                      {1 magazin}
     [broad,butter,fish,salt,cheese,saucers,sugar,tea],  {2 magazin}
     [fish,salt,cheese,saucers,sugar,cafe]        {3 magazin}
     );
procedure nal(sh:shop; a:assort);
 var i:integer; j:food;
 begin
      a:=sh[1]; {vubiraem assortiment 1-go magazina}
      for i:=1 to n do
         a:=a*sh[i];   {peresechenie mnojestv dlya poiska "est vezde"}
 end;
procedure write_set(x:assort); {procedura raspechatuvaniya znachenij mnojestva}
  var j:food;
  begin
   {perebiraem vse vozmojnue znacheniya i vuvodim tolko nazvaniya tex iz nix, kotorue est v peredannom v proceduru mnojestve}
   for j:=low(food) to high(food) do
       if j in x then write(s[j],' ');
  end;

var a:assort; j:food;
Begin
  clrscr;
  nal(stores,a);
  write('productu vo vsex magazinax: ');
  write_set(a);
  readln;
End.