Question

Срочно!!! Помогите с массивом!!! надо написать программный код на 13 задание.

Answer 1

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

Answer 2

----------------------------