Кто может нарисовать Блок Схему к этой задачки procedure TForm1.Button1Click(Sender: TObject); var a:array[0..9] of integer; i:integer; begin for i:=0 to 9 do a[i]:=StrToInt(memo1.lines[i]); for i:=0 to 9 do begin if a[i]mod 2=0 then a[i]:=0 else a[i]:=1; end; for i:=0 to 9 do memo2.Lines[i]:=IntToStr(a[i]); end; end.

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.

Пусть 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