Вычислить среднегеометрическое значение каждых вторых элементов последней трети массива” Код программы есть,нужно только указать, чтобы она выбирала каждый второй элемент.Помогите,пожалуйста: Procedure Part_2(n:integer; Y:vector; var Sg:real); var i,k:integer; P:real; Begin P:=1; k:=0; For i:=2*n div 3 + 1 to n do If (y[i]0) then begin P:=P*y[i]; k:=k+1; end; If k>0 then If P>0 then Sg:=exp(1/k*ln(P)) else If odd(k) then Sg:=-exp(1/k*ln(abs(P))) else Sg:=0 else Sg:=0; end;

Просто вместо for i:=n div 3+1 to n do пиши так
сначала перед i:=n div 3+2;
после вот так
while ibegin
всё что было внутри for 
i:=i+2;
end;
....(остальной код)