Program massiv; var a:array[1..10] of integer; i:integer; begin for i:=1 to 10 do begin // Генерируем массив, a[i]:=random(10)+1; // заполняя его случайными числами от 1 до 10 и write(a[i]:3); // выводим его end; for i:=1 to 10 do begin // Начинаем проверку индексов и if i mod 2=0 then a[i]:=2*a[i] // если остаток от деления индекса на 2 равен 0, // т.е индекс чётный, мы удваиваем элемент массива с этим индексом else a[i]:=3*a[i]; // иначе (т.е при нечётном индексе) утраиваем элемент массива с этим индексом end; writeln; //пустая строка, чтобы не спутались массивы for i:=1 to 10 do write(a[i]:3); //выводим новый массив end. Есть вопросы - в ЛС или в комментариях к решению.