Напишите к этому коду коментарии(что каждая строчка обозначает). С++ #include
#include
#include
#include
using namespace std;

int main()
{
setlocale(LC_ALL, "Ukr");
srand((int)time(0));
const int n = 4, m = 8;
double a[n][m], sum_pos;

printf("Була:\n");
for (int i = 0; i < n; i++)
{
for (int j = 0; j < m; j++)
{
a[i][j] = 0.1 * (rand() % 201 - 100);
cout << setw(7) << setprecision(1) << fixed << a[i][j];
}
printf( "\n");
}

printf("Стала:\n");
for (int i = 0; i < n; i++)
{
sum_pos = 0.;
for (int j = 0; j < m; j++)
if (a[i][j] > 0.) sum_pos += a[i][j];

for (int j = 0; j < m; j++)
{
if (a[i][j] < 0.) a[i][j] = sum_pos;
cout << setw(7) << setprecision(1) << fixed << a[i][j];
}

printf ("\n");
}

system("pause");
return 0;
}

Из Cообщение "мальчик с тёмными волосами" содержит 2 бита 
следует:
2^2 =4 (количество мальчиков с тёмными волосами)
Из   Сообщение "девочка с тём волосами"  - 3 бита   следует:
2^3 = 8 (количество дев с тём волосами)
8 +4 =12 (количество детей с тёмными волосами)
Вероятность того, что будет выбран ученик с тёмными волосами:
p(т) =12/32=3/8
вероятность выбора рыжих в три раза меньше: р(рыж) =р(т)/3=1/8
>   8 =2^3  >  3 бита содержит сообщение, что будет выбран рыжий ученик, но тк рыжих мальчиков вообще НЕТ, то это относится только к рыжим девочкам.
       ОТВЕТ   3 бита.

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

Var
 f:text;
 max,min,p:real;
 maxn,minn,n,i:integer;
 ar:array of real;
 s:string;
begin
max:=real.MinValue;
min:=real.MaxValue;
n:=0;
 assign(f,'text.txt');
 reset(f);
 while not(Eof(f)) do
  begin
   read(f,p);
   inc(n);
   setlength(ar,n);
   ar[n-1]:=p;
   if ar[n-1]>max then
    begin
     max:=ar[n-1];
     maxn:=n-1;
    end;
   if ar[n-1]<min then
    begin
     min:=ar[n-1];
     minn:=n-1;
    end;
  end;
 close(f);
swap(ar[minn],ar[maxn]);
for i:=0 to n-1 do
if i<>n-1 then s:=s+floattostr(ar[i])+' '
else
s:=s+floattostr(ar[i]);
rewrite(f);
write(f,s);
close(f);
end.

Пример содержимого text.txt:
0 -2.1 1.1
Пример содержимого text.txt после работы программы:
0 1.1 -2.1