PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(13, -25, 25);
a.Println;
var ai := a.IndexesOf(t -> Abs(2 * t) > 30).ToArray;
if ai.Count > 0 then
begin
Println('Отобрано элементов:', ai.Count);
foreach var t in ai do
$'a[{t+1}]={a[t]} '.Print;
Println
end
else Println('Нет искомых элементов')
end.
-1 -14 -19 6 -3 -24 13 17 25 -5 2 -18 -14
Отобрано элементов: 5
a[3]=-19 a[6]=-24 a[8]=17 a[9]=25 a[12]=-18