Решите

метеорологическая станция ведет наблюдение за влажностью воздуха.результатом одного измерения является целое число от 20 до 100 процентов, которое записывается при минимально возможного количества бит. станция сделала 80 измерений. определите информационный объем результатов наблюдений.​

Код:

#include <iostream>

using namespace std;

int main()

{

   int n,i,max,j,count=0,sum=0;

   cout << "n = ";

   cin >> n;

   int array[n];

   for (i=0;i<n;i++)

   {

       cin >> j;

       if (j>1000000)

       {

           cout << "Элемент массива превосходит 1000000";

           break;

       }

       else

       {

           array[i] = j;

           sum += j;

       }

   }

   max = array[0];

   for (i=1;i<n;i++)

   {

       if (array[i]>max)

       {

           max = array[i];

       }

   }

   for (i=0;i<n;i++)

   {

       if (array[i] == max)

       {

           count++;

       }

   }

   if (count > 1)

   {

       sum -= count*max;

       cout << "Сумма элементов массива без максимальных: " << sum;

   }

   else

   {

       sum -= max;

       cout << "Сумма элементов массива без максимального: " << sum;

   }

}  

Вывод:

n = 5                                                                                                                          

1 2 5 3 5                                                                                                                      

Сумма элементов массива без максимальных: 6  

1 + 2 + 3 = 6

n = 5                                                                                                                          

1 2 3 4 5                                                                                                                      

Сумма элементов массива без максимального: 10      

1 + 2 + 3 + 4 = 10  

//Pascal ABC.NET 3.1 сборка 1219

Const
 n=5;

Var
 max1,max2,min1,min2,i:integer;
 ar:array[1..n] of integer;
begin
 max1:=integer.MinValue;
 max2:=integer.MinValue;
 min1:=integer.MaxValue;
 min2:=integer.MaxValue;
 for i:=1 to n do
  begin
   readln(ar[i]);
   if (ar[i]<max1) and (ar[i]>max2) then max2:=ar[i] else
   if ar[i]>max1 then
   begin
   max2:=max1;
   max1:=ar[i];
   end;
   if (ar[i]>min1) and (ar[i]<min2) then min2:=ar[i] else
   if ar[i]<min1 then
   begin
   max2:=max1;
   min1:=ar[i];
   end;
  end;
 writeln('Сумма максимумов:',max1+max2);
 writeln('Cумма минимумов:',min1+min2);
end.

Пример ввода:
1
2
3
4
5
Пример вывода:
Сумма максимумов:9
Cумма минимумов:3