<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(15, -22, 33);
a.Println;
a.Transform(t -> t > 0 ? 1 : t);
a.Println
end.
<h2>Пример</h2><h3>-16 7 14 8 18 7 -5 -3 -18 26 -3 -8 31 13 -1</h3><h3>-16 1 1 1 1 1 -5 -3 -18 1 -3 -8 1 1 -1</h3>
1)Друга ищи, а найдешь - береги. 2) Старый друг лучше новых двух.
Водитель - автобус и остановка
Автобус - водитель, пассажир, контролёр
Пассажир - автобус, остановка, билет
Контролер - билет и пассажир
начало
/ \
d:=a+b e:=a-2d
\ /
\ e:=c:e
\ /
d:=d-e
не знаю, но моё мнение такое. это больше похоже на программный алгоритм. блоки я уже позабыл