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

Решение задачи 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;
}

ureshikore197

Var a: array[1..10] of integer;
var i, col, ans:integer;
begin
ans:=0;
col:=0;
for i:=1 to 10 do  
begin  
readln(a[i]); 
if a[i] < 0 then
begin
col:=col+1;
ans:=ans+a[i]; 
end;
end; 
writeln(ans/col);
end.

Гость ?

Есть сомнения?

Не нашли подходящего ответа на вопрос или ответ отсутствует?
Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие
вопросы в разделе Информатика.

Трудности с домашними заданиями? Не стесняйтесь попросить о помощи –
смело задавайте вопросы!