Задана матрица с максимальным размером 20х20. Строки заданной матрицы нужно переставить в порядке возрастания суммы элементов каждой строки. С клавиатуры задается актуальное количество строк и столбцов(0

1)
Замечание: не очень понятно какое число надо делить на 3. В программе на 3 делится первый элемент из каждой пары.
const n=12;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n div 2 do
 begin
 a[2*i-1]:=2*i;
 a[2*i]:=a[2*i-1] div 3;
 end;
for i:=1 to n do write(a[i],' ');
writeln;
end.

Результат:
2 0 4 1 6 2 8 2 10 3 12 4

2)
const n=12;
var b:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
 begin
 b[i]:=random(71)-10;
 write(b[i]:4);
 end;
writeln;
for i:=1 to n do
 begin
 b[i]:=b[i]-i;
 write(b[i]:4);
 end;
writeln;
end.

Пример:
17 54 4 -7 31 33 -6 27 14 59 0 43
16 52 1 -11 26 27 -13 19 5 49 -11 31

1) 64*32/8/1024 = 0,25 кб; 1 / 0,25 = 4 бит пиксель; 2^4 = 16 цветов.
2) 50*80*(ln(16)/ln(2)) = 16000 бит; 16000 / 8 = 2000 байт.
3) 64*64*(ln(256)/ln(2)) = 32768 бит / 8 / 1024 = 4 кбайт минимум.
4) 2048*1536*3 байт пиксель = 9437184 байт / 8 / 1024 = 1152 кбайт.
5) (ln(256)/ln(2)) / (ln(2)/ln(2)) =8 раз меньше стал; (текущий уменьшенный вес файла + 70 байт) * 8 =~ 560 байт если весил 1 байт.
6) (ln(64)/ln(2)) / (ln(8)/ln(2)) = 2 раза.
7) (ln(1024)/ln(2)) / (ln(32)/ln(2)) = 2 раза.
8) 32*64/8 = 256; 512 байт / 256 = 2 бит пикс; 2^2 = 4 цветов.
9) 128*128/8/1024 = 2; 4 кб / 2 = 2 бит пикс; 2^2 = 4 цветов.
10) 1024*768*16 бит пикс = 12582912 бит / 8 / 1024 / 1024 = 1,5 мбайт.
11) 1024*512/8/1024 = 64; 256 кб / 64 = 4 бит пикс; 2^4 = 16 цветов.
12) 32*128*(ln(64)/ln(2)) бит = 24576 бит / 8 / 1024 = 3 кбайта.
13) 2^24 = 16 777 216 цветов; 1240*1024*(ln(16777216)/ln(2)) бит пикс = 30474240 бит / 8 / 1024  = 3720 кбайт для одной страницы требуется.