PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
Внимание! Если программа не работает, обновите версию!
function DI(n:integer):integer;
begin
var d:=n mod 10;
if d=0 then result:=n
else result:=10*d+n div 10
end;
begin
var a:=ArrRandom(12,10,99); a.Println;
a.Transform(t->DI(t)); a.Println
end.
Пример
24 90 73 90 78 53 70 14 46 37 45 45
42 90 37 90 87 35 70 41 64 73 54 54