Question

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

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

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  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.Println
end.

Пример
26 25 -11 -11 6 32 -18 18 -9 28 1 -23
26 25 3 4 5 32 7 18 9 28 11 12

№2

begin
  var a:=ArrRandom(21,-42,56); a.Println;
  foreach var i in Range(0,20,2) do a[i]+=5;
  a.Println
end.

Пример
21 3 31 -11 17 47 41 22 9 31 -33 -37 -37 43 1 34 -35 -14 -28 56 -13
26 3 36 -11 22 47 46 22 14 31 -28 -37 -32 43 6 34 -30 -14 -23 56 -8