Информатика, Паскаль Утроить элементы массива, стоящие на нечётных местах?

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

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: studassistent.ru

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);   readln end. 

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