Один бит информации уменьшает неопределенность в два раза.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,100); a.Println;
Writeln('Четных элементов: ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение</em></u>
n= 15
48 48 85 94 39 45 22 16 75 51 85 97 91 31 92
Четных элементов: 6
#include<iostream>
#include<cmath>
using namespace std;
int main(){
double a,b,c,p,S;
cin >> a >> b >> c;
p = (a + b + c)/2;
S = sqrt(p * (p - a) * (p - b) * (p - c)); // Формула Герона
cout << 2*S/a << "; " << 2*S/b << "; " << 2*S/c; // S = 1/2 a * h1 -> h1 = 2S / a
return 0;
}