• Вычислить среднегеометрическое значение каждых вторых элементов последней трети массива”
    Код программы есть,нужно только указать, чтобы она выбирала каждый второй элемент.Помогите,пожалуйста:

    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;

Ответы 1

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

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years