Задать массив m (7) случайными числами от 12 до 73. Утроить элементы массива, стоящие на нечетных местах. Утроить чётные элементы массива, стоящие на нечетных местах

Var

m: array [1 ... 7] of integer;

i: byte;

begin

randomize;

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

for i : = 1 to 7 do

begin

m[i] : = random (61) + 12;

write (m[i],' ') ;

end;

writeln; writeln;

writeln ('Утроили стоящие на нечетных местах.') ;

for i : = 1 to 7 do

begin

if i mod 2 0 then m[i] : = m[i]*3;

write (m[i],' ') ;

end;

writeln; writeln;

writeln ('Утроили четные на нечетных местах.') ;

for i : = 1 to 7 do

begin

if ((i mod 2 0) and (m[i] mod 2 = 0)) then m[i] : = m[i]*3;

write (m[i],' ') ;

end;

end.

ну допустим элементы (36, 50, 41, 70, 31, 26, 38) преобразуем и выводим (180, 50, 245, 70, 155, 26, 190)