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

Pon4ik11119999 Pon4ik11119999    3   21.09.2019 02:50    4

Ответы
Milli205 Milli205  08.10.2020 06:08
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
ПОКАЗАТЬ ОТВЕТЫ
alicianovikova alicianovikova  08.10.2020 06:08
На скриншотах
==============
Составить программу, которая создает и заполняет массив из 12 целых чисел случайными двузначными чис
Составить программу, которая создает и заполняет массив из 12 целых чисел случайными двузначными чис
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика