В процессе преобразования растрового графического изображения количество цветов уменьшилось с 16 777 216 до 1024. Во сколько раз уменьшится объём занимаемой им памяти? 2. Рисунок размером 128 на 32 пикселей занимает в памяти 7 Кбайт (сжатие не проводилось Найдите максимально возможное количество цветов в палитре изображения.

Const n=10;
var 
  a,b:array [1..n] of integer;
  i,min1,min2,k:integer;
begin
  randomize;
  For i:=1 to n do begin
    a[i]:=random(10);    
    b[i]:=random(10);
  end;
  writeln (a);
  writeln (b);
  writeln;
  min1:=1000;
  min2:=1000;
  For i:=1 to n do begin
    if a[i]<min1 then min1:=a[i];
    if b[i]<min2 then begin min2:=b[i]; k:=i end;
  end;
  if k<n 
    then begin 
      b[k+1]:=min1; 
      writeln (a);
      writeln (b);
    end
    else writeln ('Минимальным является последний элемент');  
end.

Примеры:
1)
[4,5,2,2,7,3,8,6,8,6]
[5,5,2,2,3,7,9,9,4,1]

Минимальным является последний элемент

2)
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,7,2,1,4,0,9]

[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,0,2,1,4,0,9]


PS: Менять N можно в описании константы