• Ввести одномерный массив A из 15 элементов. Определить в нём среднее геометрическое модулей отрицательных элементов

Ответы 1

  • program zz1;

    const n = 15;  // задаем количество элементов в массиве

    var  i, k, s:integer; // задаем переменные целого типа

    k1:real;

    m:array [1..n] of integer;

    begin

    for i:=1 to n do  // получаем n чисел случайных и записываем их в массив

    m[i]:=random(51)-25;

    for i:=1 to n do  // выводим полученный массив на экран

    write(m[i],\' \');

    writeln;    // переходим на новую строку для вывода ответа

    s:=1;

    for i:=1 to n do  // организуем цикл, в котором переберем все элементы массива

     if m[i] < 0 then begin s:=s * abs(m[i]);k:=k+1;end;// получаем произведение и количество отрицательных элементов

    k1:= exp(ln(s) / k); // вычисляем среднее

    write( \' среднее геометрическое отрицательных элементов массива = \', k1:5:2);   //выводим ответ

    end.

    • Автор:

      jayden
    • 2 года назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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