Замените «1» вместо положительных элементов в массиве x (12) и «0» вместо отрицательных элементов. (на )

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

begin
  var x:=ArrRandom(12,-50,50); x.Println;
  x.Transform(t->t>0 ? 1 : 0); x.Println
end.

Пример
-11 -29 -44 -9 -13 15 20 -1 -8 4 46 50
0 0 0 0 0 1 1 0 0 1 1 1