Пусть a*b = X - размер изображения (количество точек в изображении).
Для кодирования одного из 64 цветов требуется log(2)64 = 6 бит (2^6=64).
96 Кбайт = 96*1024 байт = 96*1024*8 бит
В экономном режиме:
96*1024*8 = X*100*100*6;
X = 96*1024*8 / (100*100*6) = 128*1024/10000
2 Мбайта = 2*1024 Кбайт = 2*1024*1024 байт = 2*1024*1024*8 бит
Пусть z - объем одного цвета в палитре до оптимизации
2*1024*1024*8 = X*400*400*z
2*1024*1024*8 = (128*1024/10000)*400*400*z
2*1024*8 = (128)*4*4*z
z = 16*1024/(128*4*4) = 8 бит
количество цветов в палитре до оптимизации = 2^8 = 256
ответ: 256
var
a: array of real;
size, i: integer;
average: real;
begin
randomize;
write('Размер массива: ');
readln(size);
SetLength(a, size);
average := 0;
writeln(' *** Сгенерированный массив *** ');
for i := 0 to size - 1 do
begin
a[i] := random(20);
write(' ', a[i]);
if Odd(i) = false then average := average + a[i];
end;
average := average / trunc((size + 1) / 2);
writeln(#13 + 'Среднее арифметическое = ', average);
writeln(' *** Новый массив ***');
for i := 0 to size - 1 do
begin
if Odd(i) = true then a[i] := average;
if Frac(a[i]) = 0 then write(' ', a[i])
else write(' ', a[i]:0:1);
end;
end.