Нужно поправить код

@oksid · Регистрация: 04.11.2013

Студворк — интернет-сервис помощи студентам

В городе N, 100 кондитерских магазинов. Известно что в каждом из магазинов не более 20 видов сластей в ассортименте. Какие виды сластей есть во всех магазинах. Существует ли магазин торгующий уникальной продукцией. Перечислите 5 видов сластей которые есть в большинстве магазинов города N. (ассортимент кондитерских магазинов рассматривается как длинна перечисляемого типа).
Выручайте срочно нужно сделать. Сделать нужно через множества.
В общем я сделал некую часть кода - поправьте пожалуйста, потому что он не правильно работает + нужно доделать еще условие последнее. Буду очень благодарен.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Program v2;
uses CRT;
const n=3; m=5;
type asort=set of 1..m;
var
    A:array[1..n] of asort;
    i,j,x,z:byte;
    c:1..m;
    b:boolean;
begin
   for i:=1 to n do
     begin
         write('Ìàãàçèí ¹',i,'(ñëàñòåé äî 5)=');
         Readln(x);
         if x<=m then
               for j:=1 to x do
                   begin
                     write('Cëàñòü ¹',j,'=');
                     Readln(c);
                     include(A[i],c);
                   end;
       end;
    write('Ìàãàçèíû òîðãóþùèå óíèêàëüíîé ïðîäóêöèåé=');
    for i:=1 to n do
     begin
       b:=true;
       for  j:=1 to n do
          if (A[i]=A[j]) and (i<>j) then b:=false;
        if b then write(i,' ');
     end;
 
    writeln;
    write('Âèäû ñëàñòåé êîòîðûå åñòü âî âñåõ ìàãàçèíàõ=');
    for i:=1 to m do
     begin
       b:=false;
       for j:=1 to n do
          if (i in A[j]) then
               begin
                b:=true;
               end;
       if b then write(i,' ');
      end;
end.

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .