Заполнить схему состава холодильника

Заполни схему состава холодильника.допиши адреса продуктов. холодильник большой белый верх.внутри: сыр, колбаса, простокваша, сметана, молоко , овощи, фрукты морозилка. внутри: мясо, рыба, котлеты, вареники, тесто. адреса продуктов: магазин, огород, рынок, , охота. точно самое то что она написала у меня есть это в учебнике

Const     n = 10; var     a: array[1..n] of integer;     i,j,m,b,c,p,s: integer; begin randomize; {заполнение и вывод} write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(n);       write(' ',a[i]);       end; writeln; {сортировка} p: =0; for i: = 1 to n do       begin       m: =i;       for j: = i+1 to n do               if a[j]< a[m] then m: =j;       if m< > i then             begin             b: =a[m];             a[m]: =a[i];             a[i]: =b;             p: =p+1;             {вывод каждого шага сортировки}             write('перестановка №',p,': ');             for j: = 1 to n do                     write(' ',a[j]);             writeln;             end;       end; writeln; write('отсортированный массив: '); for i: = 1 to n do       write(' ',a[i]); {бинарный поиск} writeln; write('введите число: '); readln(c); m: =n div 2; i: =1; j: =n; s: =0; while (a[m]< > c)and(i< =j) do     begin     if c > a[m] then i: =m+1     else j: =m-1;     s: =s+1;     m: =(i+j) div 2;     end; writeln; if a[m]=c then writeln('в массиве есть данное число') else writeln('в массиве нет данного числа'); writeln('кол-во перестановок за сортировку: ',p); writeln('кол-во сравнений за поиск: ',s); end. примеры: исходный массив: 0 4 5 4 1 2 6 7 0 7 перестановка №1: 0 0 5 4 1 2 6 7 4 7 перестановка №2: 0 0 1 4 5 2 6 7 4 7 перестановка №3: 0 0 1 2 5 4 6 7 4 7 перестановка №4: 0 0 1 2 4 5 6 7 4 7 перестановка №5: 0 0 1 2 4 4 6 7 5 7 перестановка №6: 0 0 1 2 4 4 5 7 6 7 перестановка №7: 0 0 1 2 4 4 5 6 7 7 отсортированный массив: 0 0 1 2 4 4 5 6 7 7 введите число: 3 в массиве нет данного числа кол-во перестановок за сортировку: 7 кол-во сравнений за поиск: 4 исходный массив: 4 4 1 3 4 4 5 0 7 2 перестановка №1: 0 4 1 3 4 4 5 4 7 2 перестановка №2: 0 1 4 3 4 4 5 4 7 2 перестановка №3: 0 1 2 3 4 4 5 4 7 4 перестановка №4: 0 1 2 3 4 4 4 5 7 4 перестановка №5: 0 1 2 3 4 4 4 4 7 5 перестановка №6: 0 1 2 3 4 4 4 4 5 7 отсортированный массив: 0 1 2 3 4 4 4 4 5 7 введите число: 5 в массиве есть данное число кол-во перестановок за сортировку: 6 кол-во сравнений за поиск: 2

Функция считает, если коротко n : = 7+9*((2570-35) div d + 1) 196 = 7+9*((2570-35) div d + 1) (196-7)/9-1 = (2570-35) div d 20 = 2535 div d 4 = 507 div d 507/4 =126.75, значит можно взять меньше подбором 126 125 124 123 122 121 => 6 чисел или программой //pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию function f(d: integer): integer; var       n, s: integer; begin       n : = 7;       s : = 35;       while s < = 2570 do       begin               s : = s + d;               n : = n + 9       end;       f : = n; end; begin       for var i : = 1 to 100000000 do       begin               if f(i) = 196 then writeln(i);               if f(i) < > 7 + 9 * ((2570 - 35) div i + 1) then writeln('not ', i);       end; end.