Как найти среднее арифметическое с отрицательными числами

Решение задачи 2.98 на Паскале

 
program mytask;

//****************************************************************
// КОНСТАНТЫ
//****************************************************************
const
  MAX_A = 16;

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
var
  i       : byte;            //Индекс
  NegNum  : byte = 0;        //Количество отрицательных элементов
  Arifm   : Single = 0.0;    //Среднее арифметическое
  MaxA    : byte;            //Индекс элемента с наибольшим значением
  MaxInt  : ShortInt;        //Наибольшее значение типа
  MinInt  : ShortInt;        //Наименьшее значение типа
  A       : array[1..MAX_A] of ShortInt;  //Массив

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
  MaxInt := High(MaxInt);   //Получить наибольшее значение типа
  MinInt := Low(MaxInt);    //Получить наименьшее значение типа
  randomize;                //Запустить генератор случайных чисел

  //Создать массив и вывести на экран
  for i := 1 to MAX_A do
    begin
      A[i] := random(MaxInt) - (MaxInt div 3);
      WriteLn(A[i]);
    end;

  //Найти наибольший элемент в массиве,
  //определить количество отрицательных элементов
  //и вычислить сумму отрицательных значений
  MaxInt := MinInt;
  for i := 1 to MAX_A do
    begin
      if A[i] >= MaxInt then
        begin
          MaxInt := A[i];
          MaxA := i;
        end;
      if A[i] < 0 then
        begin
          Inc(NegNum);
          Arifm := Arifm + A[i];
        end;
    end;

  //Вывести решение на экран
  WriteLn('Problem solution:');
  WriteLn('  The largest value in the array: ', MaxInt);
  WriteLn('  Index of the element with the highest value: ', MaxA);

  //Вычислить среднее арифметическое
  //и окончательно решить задачу
  if NegNum > 0 then
    begin
      Arifm := Arifm / NegNum;
      WriteLn('  Number of negative numbers: ', NegNum);
      WriteLn('  The arithmetic mean: ', Arifm:0:2);
      WriteLn('  Difference: ', (MaxInt - Arifm):0:2);
    end
  else
    WriteLn('!!! There are NO negative values !!!');

  WriteLn('The end. Press ENTER...');
  ReadLn;
end.

Решение задачи 2.98 на С++

#include <cstdlib>
#include <iostream>
#include <iomanip>      //!!! Подключить этот файл

using namespace std;

//****************************************************************
// КОНСТАНТЫ
//****************************************************************
const int MAX_A = 16; 

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
unsigned char i;          //Индекс
unsigned char NegNum = 0; //Количество отрицательных элементов
float Arifm = 0.0;        //Среднее арифметическое
unsigned char MaxA;       //Индекс элемента с наибольшим значением
signed char MaxInt;       //Наибольшее значение типа
signed char MinInt;       //Наименьшее значение типа
signed char A[MAX_A];     //Массив 

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
int main(int argc, char *argv[])
{
  MaxInt = SCHAR_MAX;     //Получить наибольшее значение типа
  MinInt = SCHAR_MIN;     //Получить наименьшее значение типа 
  srand(time(0));         //Запустить генератор случайных чисел
  
  //Создать массив и вывести на экран
  for(i = 0; i < MAX_A; i++)
  {
    A[i] = (rand() % MaxInt) - (MaxInt / 3);
    cout << int(A[i]) << endl;
  }
  
  //Найти наибольший элемент в массиве,
  //определить количество отрицательных элементов
  //и вычислить сумму отрицательных значений
  MaxInt = MinInt;
  for(i = 0; i < MAX_A; i++)
  {
    if (A[i] >= MaxInt)
    {
      MaxInt = A[i];
      MaxA = i;
    } 
    if (A[i] < 0)
    {
      NegNum++;
      Arifm = Arifm + A[i];
    } 
  }
  
  //Вывести решение на экран
  cout << "Problem solution:" << endl;
  cout << "  The largest value in the array: " 
       << int(MaxInt) << endl;
  cout << "  Index of the element with the highest value: " 
       << int(MaxA) << endl; 
  
  //Вычислить среднее арифметическое
  //и окончательно решить задачу
  if (NegNum > 0)
  {
    Arifm = Arifm / NegNum;
    cout << "  Number of negative numbers: " 
         << int(NegNum) << endl;
    cout << "  The arithmetic mean: " 
         << fixed << setprecision(2) << Arifm << endl;
    cout << "  Difference: " 
         << fixed << setprecision(2) << (MaxInt - Arifm) << endl;
  }
  else
    cout << "!!! There are NO negative values !!!" << endl;   
  
  system("PAUSE");
  return EXIT_SUCCESS;
}

Примеры

Примеры нахождения среднего арифметического отрицательных и вещественных чисел.

1. Среднее арифметическое чисел 67,1, 68,2, 67,1, 70,4, 68,2

   begin{align}
   & overline{a}=frac{67,1+68,2+67,1+70,4+68,2}{5}=68,2\
   end{align}

   Размах ряда: 70,4-67,1=3,3

   Моды ряда: 67.1, 68.2

   Медиана ряда: 68.2

2. Среднее арифметическое чисел 0,6, 0,8, 0,5, 0,9, 1,1

   begin{align}
   & overline{a}=frac{0,6+0,8+0,5+0,9+1,1}{5}=0.78\
   end{align}

   Размах ряда: 1,1-0,5=0.6

   Ряд не имеет моды

   Медиана ряда: 0.8

3. Среднее арифметическое чисел -21, -33, -35, -19, -20, -22

   begin{align}
   & overline{a}=frac{(-21)+(-33)+(-35)+(-19)+(-20)+(-22)}{6}=-25\
   end{align}

   Размах ряда: (-19)-(-35)=16

   Ряд не имеет моды

   Медиана ряда: -21,5

4. Среднее арифметическое чисел -4, -6, 0, -4, 0, 6, 8, -12

   begin{align}
   & overline{a}=frac{(-4)+(-6)+0+(-4)+0+6+8+(-12)}{8}=-1,5\
   end{align}

   Размах ряда: 8-(-12)=20

   Моды ряда: -4, 0

   Медиана ряда: -2

5. Среднее арифметическое чисел 275, 286, 250, 290, 296, 315, 325

   begin{align}
   & overline{a}=frac{275+286+250+290+296+315+325}{7}=291\
   end{align}

   Размах ряда: 325-250=75

   Ряд не имеет моды

   Медиана ряда: 290

6. Среднее арифметическое чисел 38, 42, 36, 45, 48, 45, 45, 42, 40, 47, 39

   begin{align}
   & overline{a}=frac{38+42+36+45+48+45+45+42+40+47+39}{11}=42frac{6}{11}\
   end{align}

   Размах ряда: 48-36=12

   Мода ряда: 45

   Медиана ряда: 42

7. Среднее арифметическое чисел 3,8, 7,2, 6,4, 6,8, 7,2

   begin{align}
   & overline{a}=frac{3,8+7,2+6,4+6,8+7,2}{5}=6,28\
   end{align}

   Размах ряда: 7,2-3,8=3,4

   Мода ряда: 7,2

   Медиана ряда: 6,8

8. Среднее арифметическое чисел 21,6, 37,3, 16,4, 12,6

   begin{align}
   & overline{a}=frac{21,6+37,3+16,4+12,6}{4}=21,025\
   end{align}

   Размах ряда: 37,3-12,6=24,7

   Мода ряда: 12,6

   Медиана ряда: 17,1