<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,1,10); a.Println;
a.Transform(t->t.IsEven?t+1:t); a.Println
end.
<u>Пример</u>
4 8 9 2 5 6 3 5 8 9
5 9 9 3 5 7 3 5 9 9
begin
var a:=ArrRandom(10,1,10); a.Println;
a.Transform(t->t.IsOdd?3*t:0); a.Println
end.
<u>Пример</u>
3 7 9 4 5 8 8 3 7 8
9 21 27 0 15 0 0 9 21 0
8*16*(ln(128)/ln(2)) бит на пиксель = 896 бит объём / 8 = 112 байт объём.
Если из цифр 1 и 9 мы не можем составить двухзначное число, которое делится на 3, то по авиалиннии мы добраться не сможем, насколько я знаю 91 и 19 на 3 не делится, но если мы посмотрим внимательно на вопрос, то там не указано что нужно добираться именно по авиалинии "Можно ли добраться из города 1 в город 9", следовательно мы можем добраться из города 1 в город 9 использую другой транспорт.