Задана матрица (двумерный массив) a размером n x м, состоящая из действительных элементов. числа m и n вводятся с клавиатуры. для исходной матрицы предусмотреть ввод с клавиатуры или ввод с датчика случайных чисел. где это необходимо ввести квадратную матрицу. во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы. получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент. сформировать вектор из разности максимального и минимального элементов строк. вывести на экран полученную матрицу и вектор.

Const       auto = true; var       a: array[1..100, 1..100]of real;       b: array[1..100]of real;       n, m, j, i: integer;       gmax, min, max: real; begin       read(n, m);       for i : = 1 to n do               for j : = 1 to m do               begin                       if auto then                               a[i, j] : = random(100)                       else                                                    read(a[i, j]);                                                     if abs(gmax) < abs(a[i, j]) then                               gmax : = a[i, j];               end;             for i : = 1 to n do       begin               min : = a[i, 1] / gmax;               max : = a[i, 1] / gmax;                             for j : = 1 to m do               begin                       a[i, j] : = a[i, j] / gmax;                       if min > a[i, j] then min : = a[i, j];                       if max < a[i, j] then max : = a[i, j];                                             write(a[i, j]: 5: 2, ' ');               end;                             b[i] : = max - min;               writeln(' => ', b[i]: 5: 2);       end; end.

Ок, 1 символ занимает 1 бит, то есть весь алфавит занимает 32 бита или (32/8) 4 байта. тогда вся строка занимает  (2000*4) 8000 байт, что примерно равно (8000/1024) 7, килобайт