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

Помоему так ...

const n=10;

var a:array[1 ... n] of integer; i, k:integer;

begin

writeln ('Исходный массив: ') ;

for i:=1 to n do begin

a[i]:=random (10) ;

write (' ', a[i]) ;

end;

writeln;

for i:=1 to n do begin

if ((i mod 2) = 0) then

a[i]:=a[i]*2

else

a[i]:=a[i]*3;

end;

writeln ('Конечный массив: ') ;

for i:=1 to n do

write (' ', a[i]) ;

end.