Вычислить значение каждых вторых элементов последней трети массива” код программы есть,нужно только указать, чтобы она выбирала каждый второй элемент.,: 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( else sg: =0 else sg: =0; end;

Naychpok    2   16.06.2019 17:20    0