Сколько будет занимать точечный рисунок размером 3х3 точки (пикселя) в памяти компьютера, если каждая из точек может принять один цвет из 256?

3х3 = 9 пикселей.

, отсюда вес одного пикселя = 8 бит = 1 байт

 

вес рисунка = 9 байт = 72 бита.

Uses crt; type mas=array[1..1000] of integer; var a: mas;     n,i: integer; procedure gnomesort(var arr: mas; size : integer); var i, j, t  : integer; begin i : = 2; j : = 3; while i < = size do  begin  if arr[i-1] < = arr[i] then    begin    i : = j;     j : = j + 1    end  else    begin    t : = arr[i-1];     arr[i-1] : = arr[i];     arr[i] : = t;     i : = i - 1;   if i = 1 then    begin    i : = j;     j : = j + 1    end  end  end; end;   begin  write('размер массива n=');   read(n);   writeln('исходный массив: ');   for i: =1 to n do  read(a[i]);   writeln;   gnomesort(a,n);   writeln('результат сортировки: ');   for i: =1 to n do  write(a[i],' '); end.

Ну если сортировка на паскале, то держи uses crt; type mas=array[1..1000] of integer; var a: mas;     n,i: integer; procedure gnomesort(var arr: mas; size : integer); var i, j, t  : integer; begin i : = 2; j : = 3; while i < = size do   begin   if arr[i-1] < = arr[i] then     begin     i : = j;     j : = j + 1     end   else     begin     t : = arr[i-1];     arr[i-1] : = arr[i];     arr[i] : = t;     i : = i - 1;   if i = 1 then     begin     i : = j;     j : = j + 1     end   end   end; end;   begin   write('размер массива n=');   read(n);   writeln('исходный массив: ');   for i: =1 to n do   read(a[i]);   writeln;   gnomesort(a,n);   writeln('результат сортировки: ');   for i: =1 to n do   write(a[i],' '); end.