// PascalABC.NET 3.1, сборка 1246 от 23.05.2016
begin
ReadlnString('>').ToCharArray.Shuffle.Println('')
end.
<u><em>Тестовое решение:</em></u>
> Информатика
фмИатрниаок
Информацио́нные техноло́гии (ИТ, также — информационно-коммуникационные технологии) — процессы, методы поиска, сбора, хранения, обработки, предоставления, распространения информации и способы осуществления таких процессов и методов (ФЗ № 149-ФЗ); приёмы, способы и методы применения средств вычислительной техники при выполнении функций сбора, хранения, обработки, передачи и использования данных (ГОСТ 34.003-90); ресурсы, необходимые для сбора, обработки, хранения и распространения информации
((1+2):3+4):5=1
1+2+3-4+5-6=1
(1+2+3+4):5))+6-7=1
(1+2)*3-4+5+6-7-8=1
===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 10, 99); // для одинаковых позиций вывода
a.Println;
// элементы, кратные трем, упорядочить по убыванию
// прочие оставить на своих местах
var v := a.Select((v, i) -> (v, i))
.Where(t -> t[0] mod 3 = 0)
.OrderByDescending(t -> t[0])
.ToArray;
var w := v.Select(t -> t[1]).Sorted.ToArray;
for var i := 0 to w.High do
a[w[i]] := v[i][0];
a.Println
end.
