Растровый газетный рисунок состоит из точек четырех цветов: черного, темно-серого, светло-серого, белого. сколько битов понадобится для двоичного кодирования одного пикселя этого рисунка?

2

Эм, ищем сумму элементов которые меньше первого и первого var       k, m: integer;       dat: array[1..10] of integer; begin       dat[1] : = 45; dat[2] : = 55;       dat[3] : = 40; dat[4] : = 15;       dat[5] : = 20; dat[6] : = 80;       dat[7] : = 35; dat[8] : = 70;       dat[9] : = 10; dat[10] : = 45;             m : = dat[1];       for k : = 2 to 10 do               if dat[k] < dat[1] then                       m : = m + dat[k];       write(m); end. вывод 165

// pascalabc.net 3.2, сборка 1467 от 02.06.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   var x: =a.where(x-> x.isodd).toarray;   for var i: =1 to x.count-1 do begin       var (j,l): =(i-1,x[i]);       while (j> =0) do           if x[j]> l then begin x[j+1]: =x[j]; j-=1 end           else break;       x[j+1]: =l       end;   var j: =0;   for var i: =0 to x.length-1 do begin       while a[j].iseven do j+=1;       a[j]: =x[i]; j+=1       end;   a.println; end. пример n= 15 49 10 3 44 -25 31 -18 -9 29 43 -24 -45 -19 45 -19 -45 10 -25 44 -19 -19 -18 -9 3 29 -24 31 43 45 49