Розробіть програму, яка вставляє 7 цілих чисел з інтервалу [-5000..5000] в одновимірний масив. Програма виводить середнє число введених чисел, приймаючи їх абсолютне значення. Приклад: 89, -123, 45, 196, 1204, 0, 112 Вихід: 252.714

var f: array[1..7] of integer;

i,sum:integer;

srednee:real;

begin

 sum:=0;

 randomize;

 for i:=1 to 7 do

 begin

   f[i]:=random(-5000,5000);

   write(f[i], ' ');

   sum:=sum+f[i];

 end;

 srednee:= sum/7;

 writeln('Srednee: ', srednee:3:3);

end.

.

Объяснение:

Начинает страдать осанка человека, в особенности это относится к пользователям настольных компьютеров. Даже если человек следит за своей спиной, часы интернет-баталий сделают свое дело и человек все же начнет горбатиться и сутулиться. В последствии это приведет в лучшем случае к незначительной степень остеохондроза спины и шейного отдела позвоночника. Болезнь довольна коварная, во-первых возможно визуальное искажение, во-вторых боли в спине, шее, защемления нервных окончаний и даже воспаление защемленного нерва. Вылечить остеохондроз не просто.

#include <bits/stdc++.h>

using namespace std;

int main()

{

   int n;

   cin >> n;

   int a[n],b[n],mn = 100000, mx = 0, oko = 0,sum = 0;

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

   {

       cin >> a[i];

       if(a[i] >= 0)

       {

           b[oko] = a[i];

           oko++;

       }

   }

   int index_of_minimum = 15, index_of_maximum = 0;

   for(int i = 0; i < oko; i++)

   {

       if(mn > b[i])

       {

           mn = min(mn,b[i]);

           index_of_minimum = min(index_of_minimum,i);

       }

       if(mx < b[i])

       {

           mx = max(mx,b[i]);

           index_of_maximum = i;

       }

   }

   for(int i = index_of_minimum; i < index_of_maximum + 1; i++)

   {

       sum += b[i];

   }

   mx = b[index_of_maximum - 1];

   mn = b[index_of_minimum];

   cout << sum << ' ' << mx * mn;

   

   return 0;

}