Составить программу, которая создает и заполняет массив из 12 целых чисел случайными...

0 голосов
30 просмотров

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


Информатика (20 баллов) | 30 просмотров
Дано ответов: 2
0 голосов
Правильный ответ

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

(60.4k баллов)
0 голосов
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
(150k баллов)