Оставить в массиве те элементы, которые не делятся ни на 2, ни на 3, ни на 5. Массив сжать.

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016 // Внимание! Если программа не работает, обновите версию! begin   var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;   a:=a.Where(x->(x mod 2<>0) and (x mod 3<>0) and     (x mod 5<>0)).ToArray;   a.Println end. Пример n= 20 18 3 19 -3 40 -27 43 -1 4 -21 -12 3 -14 3 -27 37 45 11 23 -28 19 43 -1 37 11 23