ИНОФОРМАТИКА 9 КЛАСС ПАСКАЛЬ СРОНО

1. Сформировать массив из 12 целых случайных чисел от -23 до 42. Элементы, меньшие десяти, заменить на их индекс.
2. Сформировать массив из 21 целых случайных чисел от -42 до 56. Элементы, имеющие нечетные индексы, увеличить на 5.

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!№1begin  var a:=ArrRandom(12,-23,42); a.Println;  for var i:=0 to a.Length-1 do    if a[i]<10 then a[i]:=i+1;  a.Printlnend.Пример26 25 -11 -11 6 32 -18 18 -9 28 1 -2326 25 3 4 5 32 7 18 9 28 11 12№2begin  var a:=ArrRandom(21,-42,56); a.Println;  foreach var i in Range(0,20,2) do a[i]+=5;  a.Printlnend.Пример21 3 31 -11 17 47 41 22 9 31 -33 -37 -37 43 1 34 -35 -14 -28 56 -1326 3 36 -11 22 47 46 22 14 31 -28 -37 -32 43 6 34 -30 -14 -23 56 -8