<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandomReal(ReadInteger('n='), -99, 99)
.Select(t -> Round(t, 2)).ToArray;
a.Println;
a.Where((v, i)-> i.IsEven).Aggregate(1.0, (p, q)-> p * q).Println;
a.Sort;
a.Println
end.
Я думаю что это 3 так как другие варианты не подходят
Тут подобных вопросов десяток был уже.
<span>объём_памяти = длина_изображения * ширина_изображения * глубина_цвета </span>
<span>Отсюда глубина цвета в байтах = объём/площадь или 256к*1024/(1024*512)=0,5 </span>
<span>в битах это 8*0,5=4 на каждый пиксель </span>
<span>ими можно закодировать 2^4=16 цветов </span>
<span>первые 1024 взялись из числа байт в килобайте </span>