Сформировать одномерный массив в из минимальных элементов строк двухмерного массива а (n, m) паскаль, написать эту программу в тетрадь

Const   nm = 20;   nn = 20; var   a: array[1..nm, 1..nn] of integer;   b: array[1..nm] of integer;   i, j, m, n, mina: integer; begin   write('введите число строк и столбцов массива: '); readln(m,n);   randomize;   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(101) - 50;           write(a[i, j]: 4)       end;       writeln   end;     for i: =1 to m do   begin       mina: =32767;       for j: =1 to n do if mina> a[i,j] then mina: =a[i,j];       b[i]: =mina   end;     writeln('сформированный массив');   for i: =1 to m do write(b[i]: 4);   writeln end. тестовое решение: введите число строк и столбцов массива: 6 5 исходный массив   46 -32  -6  20  36   -2 -41 -10 -42  26   -33  16 -25    9  46   -36  20 -50  36 -37   -41  16  34  -8    9   38 -36 -14 -18 -33 сформированный массив   -32 -42 -33 -50 -41 -36

1) 1,5 кбайта=1,5 * 1024 байта = 1,5 * 1024 *8 бит = 12288 бит12288/3072 = 4 бита - на один символ значит n=2^4 = 16 символов в алфавите.2)  1 символ = 8 бит = 1 байт 150*40*60=360000 (символов/байт)  это ответ и есть, но можно для удобства перевести в килобайты 1 килобайт = 1024 байт 360000/1024=351,5625 ответ: 360000 байт или 351,5625 килобайт3)  посмотрим сколько же всего символом на двух страницах: 256*2 = 512 сиволов.теперь посмотрим сколько байт они занимают: 1 килобайт (по старым нормам) = 1024 байта (по новым уже нет : ( )1024/16 = 64 байта. в одном байте 8 бит,  значит 64 байта это  64*8 = 512 бит информации.разделим: 512/512 = 1 бит информации на символ.  мощность алфавита = 2 в степени количества информации на символ, то есть 2 в первой, или просто 2. ответ: мощность алфавита равна двум.

Var   i : integer;   aa : array[1..9] of integer; begin   { высчитываем элементы массива  }   for i : = 1 to 9 do     if i mod 3 = 1 then       aa[i] : = (i + 5) * (i + 5)     else if i mod 3 = 2 then       aa[i] : = round(sqrt(aa[i-1]))     else       aa[i] : = aa[i-1] div aa[i-2];   { выводим значения на экран  }   for i : = 1 to 9 do     write(aa[i], ' '); end.