Кто знает как делать это

[Vika2016]

Даны множества А и В. Они состоят из элементов, которые записаны в массиве С [1..N]. Вывести список всех различных и общих их элементов

Наперед спасибо тому кто поможет

[dimon_snake]

Что-то задание какое-то непонятное.
Для множества A и B в одном массиве. Это как?
Половина массива для множества А, половина для В?

[Vika2016]

Сообщение от dimon_snake

Что-то задание какое-то непонятное.
Для множества A и B в одном массиве. Это как?
Половина массива для множества А, половина для В?

без понятия как это))

[dimon_snake]

Сообщение от Vika2016

без понятия как это))

И как же это кто-то должен помочь, не зная нормального условия?

[Skittlies]

В принципе задание понятно, но зачем тогда множества A и B если одного множества C достаточно. Ну чё проходишь по массиву C при этом проходов нужно количество_элементов^2 и сравниваешь есть похожие то записываешь в доп массив, чтоб потом вывести, нет записываешь в другой чтоб вывести а потом выводишь.

[CMY_3]

program work_prog;
{$mode fpc}
const
  Nm = 100;
var
  A, B, mn : set of byte;
  C : array[1..Nm] of byte;
  n,i : byte;
begin
  write('Размер массива <=',Nm,' n = '); readln(n);
  randomize;
  A:=[]; B:=[];
  writeln('Массив C:');
  for i := 1 to n do begin
    C[i]:=random(15);
    write(C[i]:3);
    if (i<=n div 2) then A := A + [C[i]]
    else B := B + [C[i]];
  end;
  writeln(#10,#13,'Множество А:');
  for i := 1 to 255 do
    if i in A then write(i:3);
  writeln(#10,#13,'Множество B:');
  for i := 1 to 255 do
    if i in B then write(i:3);
  mn := A * B;
  writeln(#10,#13,'Список общих элем:');
  for i := 1 to 255 do
    if i in mn then write(i:3);
  writeln(#10,#13,'Список различных элем:');
  mn := A - B;
  for i := 1 to 255 do
    if i in mn then write(i:3);
  mn := B - A;
  for i := 1 to 255 do
    if i in mn then write(i:3);
  readln;
end.

[Serge_Bliznykov]

CMY_3, неплохо!

одно замечание.
у Вас random(15) может вернуть в числе прочих случайных чисел ноль.
А при выводе множеств ноль не учитывается.
Это ваш просчёт или это так и задумывалось?

может лучше:

  C[i]:=1+random(15);

и ещё вопрос.
А какое отношение к решению задачи имеет массив C ?
Какую он выполняет роль? Нет, я, конечно, понимаю, что он в задании присутствует, поэтому Вы его в программу добавили.
Но и там и там непонятно, какое он имеет отношение к множествам A и B
и у Вас по коду эта неясность остаётся.
Если его выкинуть, что изменится?

[Arigato]

Сообщение от Serge_Bliznykov

А какое отношение к решению задачи имеет массив C ?
Какую он выполняет роль? Нет, я, конечно, понимаю, что он в задании присутствует, поэтому Вы его в программу добавили.
Но и там и там непонятно, какое он имеет отношение к множествам A и B
и у Вас по коду эта неясность остаётся.

Все по заданию - в задании не ясно, зачем нужен массив C, и в коде решения тоже не ясно, зачем он нужен. Тут зачет однозначно!

[Serge_Bliznykov]

Arigato, согласен. Однозначно - зачёт!

p.s. но огрех с потерей нуля я бы поправил!

[CMY_3]

А какое отношение к решению задачи имеет массив C ?

Вроде как из элементов массива заполняются множества, так поставлено задание:

Даны множества А и В. Они состоят из элементов, которые записаны в массиве С [1..N].

Алгоритм заполнения не оговорен, поэтому сделал по-своему: первая половина элем массива в множ А, вторая в В, иначе без массива в задании должно было быть предусмотрено каким образом заполняются множества
С заполнением массива просчёт мой.