Иноформатика 9 класс паскаль сроно 1. сформировать массив из 12 целых случайных чисел от -23 до 42. элементы, меньшие десяти, заменить на их индекс. 2. сформировать массив из 21 целых случайных чисел от -42 до 56. элементы, имеющие нечетные индексы, увеличить на 5.
// Внимание! Если программа не работает, обновите версию!
№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