Составить программу, которая создает и заполняет массив из 12 целых чисел случайными двузначными числами. вывести массив на экран. если последняя цифра значения элемента массива не равна 0, то поменять порядок цифр данного элемента. для изменения порядка цифр двузначного целого числа на обратный (исходное число 25, результат 52) использовать функцию пользователя.
Внимание! Если программа не работает, обновите версию!
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
==============