Блог для маленьких школьников и их родителей
ШколаЛа

Вычислить среднее геометрическое положительных элементов маcсива. Delphi

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Вычислить среднее геометрическое положительных элементов маcсива. Delphi

Ответов к вопросу: 1
  • sanyalevina05
    05.09.2024 | 18:06

    Ответ:
    program Geom;
    program Test_nn;

    {$APPTYPE CONSOLE}

    {$R *.res}

    uses
     Math;

    var

     a: array of Extended;

     n, i, c: Integer;

     x: Extended;

    begin

     Write (‘Размерность массива = ‘);

     ReadLn (n);

     SetLength (a, n);

     Randomize;

     for i := Low (a) to High (a) do begin

       a [i] := (Random (2001) — 1000) / 1000;

       Write (a [i] :7 :3);

     end;

     x := 1;

     c := 1;

     WriteLn;

     for i := Low (a) to High (a) do begin

       if a [i] > 0 then begin

         Write (a [i] :7 :3);

         x := x * a [i];

         Inc (c);

       end;

     end;

     WriteLn;

     WriteLn (‘Среднее геометрическое = ‘, Power (x, 1/c) :20 :15);

     ReadLn;

    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.