Текст занимает в памяти 40 бит. Определите его информационный объём в байтах.

5 байт

1 байт = 8 бит , то-есть 40/8 = 5 байт

Если мой ответ вам

выберете его лучшим

var a, b, c, d, i, j :integer;
     s :array [1..100,1..100] of integer;
begin
   b:=63999;
   c:=-63999;
   for i:=1 to 15 do
      begin
      writeln;
      for j:=1 to 15 do
         begin
         s[i,j]:=random(127998)-63999;
         a:=a+s[i,j];
         if s[i,j]>c then c:=s[i,j];
         if s[i,j]<b then b:=s[i,j];
         write (s[i,j],' ');
         end;
      end;
   writeln;
   writeln ('Сумма элементов = ', a);
   writeln ('Максимальный элемент = ', c);
   writeln ('Минимальный элемент = ', b);
end.

ответ: да можно ,
Для каждого груза можешь привести 
Данный груз +   некая гиря     =  противовес 
1                     +     0                   = 1
2                     +     1                   = 3
3                     +     0                   = 3
4                     +     0                   = 3+1
5                     +     3+1               = 9
6                     +     3                   = 9
7                     +     3                   = 9+1
8                     +     1                   = 9 
9                     +     0                   = 9
10                   +     0                   = 9+1
11                   +     1                   = 9+3
12                   +     0                   = 9+3
13                   +     0                   = 9+3+1