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

[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.

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

[klem4]

Толи я задание не верно понял, толи тебя ... Вот програмама:

uses crt;

const
  max_shops = 4;

type
  TFoodKinds = (beer, milk, water, tea, coffe);
  TFoodSet = set of TFoodKinds;
  TShops = array [1..max_shops] of TFoodSet;

const
  food_label: array [TFoodKinds] of string = (
  'beer', 'milk', 'water', 'tea', 'coffe'
  );

procedure print_set(const _set: TFoodSet);
var
  i: TFoodKinds;
begin
  for i := Low(TFoodKinds) to High(TFoodKinds) do
   if i in _set then writeln(food_label[i]);
end;

procedure get_rslt_set(const shops: TShops; var _set: TFoodSet);
var
  i: integer;
begin
  _set := [];
  for i := 1 to max_shops do
   _set := _set + shops[i];
end;

var
  shops: TShops = (
    [tea, beer],
    [milk],
    [],
    [beer]
  );

  in_all: TFoodSet;

begin
  clrscr;
  get_rslt_set(shops, in_all);
  print_set(in_all);
  readln;
end.

она не верна ?