I = log₂ 64 = 6 бит - кодируется один символ.
1,5 кб = 1536 байт
6 бит ≈ 1 байт
I = K · i => K = I/i = 1536/1 = 1536 символов
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-100,100); a.Println;
a:=a.Where(x->x>0).Concat(a.Where(x->x<=0)).ToArray;
a.Println;
Writeln('Количество положительных элементов: ',
a.Where(x->x>0).Count)
end.
<u><em>Тестовое решение:</em></u>
n= 15
-29 56 -40 -23 -26 -5 -69 37 -35 74 72 -63 -69 1 -93
56 37 74 72 1 -29 -40 -23 -26 -5 -69 -35 -63 -69 -93
Количество положительных элементов: 5
6363гб=6,21тб
27,5гб=28160мб
173,25кб=177408байт=1419264бит
568326байт=555,01кб=0,54мб