<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>
Самое первое правило безапасности в сети интернет - это,конечно,осторожность. Не переходить по всплывающим ссылкам,по неизвестным сайтам. Как говорится: волков бояться-в лес не ходить.
Второе,как я думаю - это включенная защита антивируса от спама. Там так же могут быть и вредоносные вирусы и материалы порнографической информации.
Третье- это проверенные источники.
И в общем,я думаю, если быть осторожным и внимательным - сеть интернет,будет очень полезным.
Var
i,s:integer;
begin
s:=0;
for i:=15 to 25 do
s:=s+sqr(i);
writeln(s);
readln;
end.