Question

Составить программу, которая создает и заполняет массив из 12 целых чисел случайными двузначными числами. Вывести массив на экран. Если последняя цифра значения элемента массива не равна 0, то поменять порядок цифр данного элемента. Для изменения порядка цифр двузначного целого числа на обратный (исходное число 25, результат 52) использовать функцию пользователя.

Answer 1

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

Answer 2

На скриншотах
==============