Расположить в порядке убывания : 25 бит, 20бит, 3 байта, 101 байт

101 байт
3 байта
25 бит
20 бит

// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
function Avg(a:array[,] of integer):real;
begin
  var s:=0; var k:=0;
  foreach var e:integer in a do
    if e>0 then begin s+=e; Inc(k) end;
  if k>0 then Result:=s/k else Result:=1e-100;
end;

begin
  var A:=MatrixRandom(4,4,-50,50); Writeln(A);
  Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3);
  var B:=MatrixRandom(5,5,-30,30); Writeln(B);
  Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3);
  var C:=MatrixRandom(4,5,-25,38); Writeln(C);
  Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3);
end.

Тестовое решение:
[[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]]
Среднее арифметическое положительных равно 24.000
[[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]]
Среднее арифметическое положительных равно 15.083
[[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]]
Среднее арифметическое положительных равно 19.200

#include <iostream>
#include <iomanip>
using namespace std;
void Fun(int n)
{
if (n != 3)
{
 double x1; double y1; double x2; double y2; double x3; double y3;
 cin >> x1 >> y1 >> x2 >> y2 >> x3 >> y3;
 double a = sqrt((x1 - x2)*(x1 - x2) + (y1 - y2)*(y1 - y2));
 double b = sqrt((x2 - x3)*(x2 - x3) + (y2 - y3)*(y2 - y3));
 double c = sqrt((x3 - x1)*(x3 - x1) + (y3 - y1)*(y3 - y1));
 double p = (a + b + c) / (double)2;
 double s = sqrt(p*(p - a)*(p - b)*(p - c));
 cout << setprecision(6) << fixed << s;
}
if (n != 6)
{
 double a; double b; double c;
 cin >> a >> b >> c;
 double p = (a + b + c) / (double)2;
 double s = sqrt(p*(p - a)*(p - b)*(p - c));
 cout << setprecision(6) << fixed << s; }
}
int main()
{
int n;
cin >> n;
Fun(n);
return 0;
}