Замените «1» вместо положительных элементов в - вопрос №87717701120 от culi42 23.08.2022 17:08

Question

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

culi42 · 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