Номер 1: как найти наименьший элемент квадратной таблицы и заменить его нулем. номер 2: как в прямоугольной таблице заменить все элементы их квадратами напишите на паскале progran const и т.д

№1 program z1; const n = 3;   m =3; var a: array[1..n, 1..m] of integer; i,j,min: integer; begin //заполним матрицу и найдем минимальное   min: =20;   for i: =1 to n do begin       for j: =1 to m do begin           a[i,j]: =random(41)-20;           if a[i,j] < min then min: =a[i,j];           write(a[i,j]: 4);       end;   writeln;   end;   writeln; // меняем минимальное на 0 и выводим матрицу   for i: =1 to n do begin       for j: =1 to m do begin              if a[i,j] = min then a[i,j]: =0;           write(a[i,j]: 4);       end;   writeln;   end;   end. тестовое решение для 1 :   18  20 -10   19 -14 -17   -4 -17 -15   18  20 -10   19 -14    0   -4    0 -15 №2 program z2; const n = 3;   m =5; var a: array[1..n, 1..m] of integer; i,j,min: integer; begin //заполним матрицу   for i: =1 to n do begin       for j: =1 to m do begin           a[i,j]: =random(41)-20;           write(a[i,j]: 5);       end;   writeln;   end;   writeln; // меняем все элементы на их квадраты и выводим матрицу   for i: =1 to n do begin       for j: =1 to m do begin              a[i,j]: =sqr(a[i,j]);           write(a[i,j]: 5);       end;   writeln;   end;   end. тестовое решение для №2     15      8    18  -17    10   -19    17      1    20  -15   -20  -13  -11    -3    17   225    64  324  289  100   361  289      1  400  225   400  169  121      9  289

1) n=2^i 64=2^6 20*6=120бит 2)16=2^4 1/16мб  = 64 кб= 65536байта= 524288бита 524288/4=131072 символов 3)8байт= 64 бит