// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99);
Writeln('количество различных элементов->',mas.Distinct.Count);
end.
1) из 8 -> в 3 и 5 (8 - пуст)
2)из 5 --> в 8 (5 - пуст, в 8 -5л)
3) из 3 --> в 5 ( 3 - пуст, в 5 -3л, в 8- 5л)
4) из 8 ---> в 3 (3 -3л, в 8 осталось 2л, в 5 - 3л)
2 мбайта переводим в биты умножая на 2 в 23 степении делим на 1000*900 получим примерно 16 бит значит в палитре 2 в 16 степени цветов