Нужно закодировать расписание, в котором 16 предметов и 7 уроков 6 дней в неделю, меньше, чем 168 битами.

Для кодирования одного из 16 предметов требуется log(2)16 = 4 бита.
Например, 0000 - математика, 0001 - русский язык и т.д.
Для кодирования всего расписания - 7*6*4 = 168 бит.

Const
  n = 10;
var
  a: array[1..n] of integer;
  i, j, t: integer;
  flag:boolean;
 
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := random(101)-50;
    Write(a[i]:4)
  end;
  Writeln;
  i:=1;
  repeat
    flag:=true;
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end;
    Inc(i);
  until (i>n-1) or flag;
  Writeln('Отсортированный по возрастанию массив');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Исходный массив
 -32  -7   2   2  50 -33   1  31   4 -16
Отсортированный по возрастанию массив
 -33 -32 -16  -7   1   2   2   4  31  50

Холст – это чистое пространство, которое дается нам для совершения каких-либо действий в разнообразных программах. Например, в графических редакторах холст - это пространство, которое дается нам для рисования рисунка.

Сохранить проект по указанному адресу можно только через пункт меню "Save as copy. Choose a file format". Но тоггда отсутствует возможность редактирования проекта. Если сохранять файл используя пункт меню "Save as Paint 3D project" проект сохраняется по неизвестному адресу. Указать путь нет никакой возможности. Куда сохраняется проект?