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

program dartdeet;

var a:array[1 ... 10] of integer;

i, temp:integer;

begin

for i: = 1 to 10 do

a[i]:=random (26) + 15;

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

for i: = 1 to 10 do

write (a[i]:3, ' ') ;

writeln;

for i: = 1 to 10 do

if i mod 2 = 0 then

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

else

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

writeln ('Преобразованный массив:') ;

for i: = 1 to 10 do

write (a[i]:3, ' ') ;

end.