Сергей сохранил компьютерное изображение размером 1536х1024 пикселей в виде несжатого файла. объём изображения равен 9 мб. определите количество битов, которые используются для кодирования одного пикселя изображения

Const   n: =30 var   a: array of integer;   i, p, o,  k1,  k2:   integer; begin   for i  : = do readln(a[i]);   k1: =0;   k2: =0;   p: =0;   o: =0;   for i : = do if  a[i]> 0 then begin   p: =a[i]+p;   k1: =k+1;   end; else o: =a[i]+o; k2: =k2+1; writeln(p/k1) writeln(o/k2) end. 2)const   n: =30 var   a: array of integer;   k_n: integer; begin for i  : = do readln(a[i]); if a[i] mod 2 > 0 then k_n: =k_n+1; writeln(k_n); end.

Const nx = 20; mx = 30; var a: array[1..nx,1..mx]of integer; i,j,n,m,min,z: integer;   sum: array[1..nx]of integer; begin write('введите число строк и столбцов'); readln(n,m); min: =1000; for i: =1 to n do begin sum[i]: =0; for j: =1 to n do begin a[i,j]: = random(100)-50; write(a[i,j]: 5); sum[i]: = sum[i] + a[i,j]; end; writeln; if min > abs(sum[i]) then begin min : = abs(sum[i]); z: =i; end; end; writeln; for i: =1 to n do writeln('i= ',i,' sum = ', sum[i]: 4); writeln; writeln('ближе всего к нулю i= ',z,' sum = ', sum[z]: 4); end.