Заданное натуральное число n и 2 одномерные массивы X и Y, содержащие n элемент по...

Question

Заданное натуральное число n и 2 одномерные массивы X и Y, содержащие n элемент по каждому. Сформировать и вывести массив, каждый элемент которого, взятый из массива Х, не принадлежит множеству, образованному из элементов массива Y.

Comments

нужно получить новый массив из X и Y;от элементов массива X которые не имеют равных элементов массива Y.

---

по условию "Элемент из Х с номером k не совпадает ни с одним элементом из Y"

---

да

---

не судите строго, пожалуйста,из за моего плохого русского,я уже менял вопрос так как вы сказали...или другое задание "Сформировать и вывести массив, каждый элемент которого, взятый из массива Х,принадлежит множеству, образованному из элементов массива Yименно 2 раз" пример такой..X=[1,2,3,4,5,6,7,8,];Y=[1,2,2,3,3,4,4,4,];ответ должен быть ответ=[2,3]

Answer 1

// PascalABC.NET 3.2, сборка 1457 от 29.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var x:=ArrRandom(n,-50,50); Write('x: '); x.Println;
  var y:=ArrRandom(n,-50,50); Write('y: '); y.Println;
  var z:=x.Where(p->not y.Any(q->p=q)).ToArray;
  Write('z: '); z.Println
end.

Пример
n= 17
x: -29 16 -20 -14 47 37 29 4 50 42 -30 38 -7 6 32 -11 -33
y: -26 32 24 18 -39 38 -18 -8 -42 -7 46 38 -4 -43 47 -27 -13
z: -29 16 -20 -14 37 29 4 50 42 -30 6 -11 -33

Comments

массив X=masiv(=xerkrord) a Y=masiv2,,(цикл в цикле);;;;;когда элемент из X массива повторяется в Y массиве;то он удаляется из X массива и выводит массив X (xerkrord);

---

var z:=x.Where(p->not y.Any(q->p=q)).ToArray;
Write('z: '); z.Println Можете в словах объяснить эти 2 строки?(я не знаю язык Pascal)

---

Спасибо вам большое за помощь!!!