Замените «1» вместо положительных элементов в массиве - вопрос №87726721120 от mira133 02.01.2021 03:59

Question

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

mira133 · Answer

// 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