[lmikle]

Сообщение от dr. F.I.N.

ыыы..... полюбому зашел по ссылке "новые сообщения" и не глянул раздел и тему топика

Ну да, сорь, не глянул. Настолько привык к тому, что пишут такое в других разделах...

Гм, я бы сделал, но мне на мобильник ты не заплатишь технически, да и бессмысленно, бо как у меня просто за месяц оплата...

Код:

program task;

{$APPTYPE CONSOLE}

const 
  A = 4.5;
  X : Array [0..7] Of Integer = (-7, 4, -2, 5, 3, -4, -12, 16);

var
  Z : Array [0..7] Of Extended;
  Sp, Sn : Extended;

function F(fX, fA : Extended) : Extended;
begin
  If fX > fA
    Then Result := sin(fX)*fA*fX/(sqr(fX) + fA)
    Else Result := fA*fX*cos(fX);
end;

procedure Run;
var
  I : Integer;
begin
  Sp := 0;
  Sn := 0;
  For I := Low(X) To High(X) Do
    Begin
      Z[i] := F(X[i],A);
      If Z[i] < 0 Then Sn := Sn + Z[i] Else Sp := Sp + Z[i];
    End;
end;

begin
  Run;
  WriteLn('Sum(Z[i]), Z[i] > 0     = ', Sp);
  WriteLn('Sum(Z[i]), Z[i] < 0     = ', Sn);
  ReadLn;
end;