Заданное натуральное число n и 2 одномерные массивы x и y, содержащие n элемент по каждому. сформировать и вывести массив, каждый элемент которого, взятый из массива х, не принадлежит множеству, образованному из элементов массива y.
// 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.
// Внимание! Если программа не работает, обновите версию!
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