Задан линейный массив целых чисел. Выбросить из данного массива элементы, удовлетворяющие...

Question

Задан линейный массив целых чисел. Выбросить из данного массива элементы, удовлетворяющие следующим свойствам: элементы равные нулю

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),-9,9); a.Println;
  a:=a.Where(x->x<>0).ToArray; a.Println
end.

Пример
n= 20
-1 0 8 5 8 -6 -8 9 8 -8 3 2 0 6 3 2 0 -1 -5 3
-1 8 5 8 -6 -8 9 8 -8 3 2 6 3 2 -1 -5 3