Замените «1» вместо положительных элементов в массиве - вопрос №1128772338 от kostya196 03.03.2021 17:22

Question

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

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