Программа на Паскале, которая утроит элементы массива, стоящие на нечётных местах: 1

program may;var  Mas: array [1..100] of integer;  i: integer;begin  for i:=1 to 100 do  begin    Mas[i]:=i;    if ((i mod 2)=1) then      begin        Mas[i]:=Mas[i]*3;        writeln(Mas[i]);      end;  end;end.

Ещё один вариант программы на Turbo Pascal: 4

uses crt;const nmax=100;var  a: array [1..3*nmax] of integer;  n, i, j, k, x: integer;begin  clrscr;  randomize;  repeat    write('Размер массива до ',nmax,' n=');    readln(n);  until n in [1..nmax];  writeln('Исходный массив:');  for i:=1 to n do    begin      a[i]:=random(50);      write(a[i]:4);    end;  writeln;  i:=n; {начнём с конца, чтобы не менялись индексы непроверенных}  while i>=1 do    if odd(i) then {если нечётный номер}      begin        for k:=1 to 2 do {2 раза}          begin            x:=a[i]; {запомним элемент}            n:=n+1; {увеличим размер массива}            for j:=n downto i+1 do {раздвинем массив вправо}              a[j]:=a[j-1];              a[i]:=x; {вставим элемент}          end;        i:=i-1; {к началу}      else i:=i-1; {если чётный номер — к началу}  for i:= 1 to n do write(a[i]:4);  readlnend.

Выбор решения зависит от конкретной задачи и предпочтений программиста.