Составить программу, которая заполняет массив А[1..10] случайными целыми числами в диапазоне от 1 до 10, затем элементы с четными индексами удваивает, а элементы с нечетными индексами утраивает. Вывести на экран исходный и полученный массив.

Помоему так...const n=10;var a:array[1..n] of integer; i,k:integer;beginwriteln('Исходный массив: ');for i:=1 to n do begina[i]:=random(10);write(' ',a[i]);end;writeln;for i:=1 to n do beginif ((i mod 2) = 0) thena[i]:=a[i]*2elsea[i]:=a[i]*3;end;writeln('Конечный массив: ');for i:=1 to n do write(' ',a[i]);end.