// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-20,20); a.Println;
a.Transform(t->t mod 5=0?2*t:t div 2); a.Println
end.
Пример
-3 -11 19 1 6 -6 -14 1 -18 -10 -19 6 -1 -13 -2
-1 -5 9 0 3 -3 -7 0 -9 -20 -9 3 0 -6 -1