Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объем следующей пословицы: речь вести - не лапти плести.

29.!

Var       j: array[1..32,1..32] of integer;       i, j, s: integer; begin //заводим массив       for i: =1 to 32 do             for j: =1 to 32 do             begin                   writeln("введите j[",i,",",j,"]");                   readln(j[i,j]);             end; //сумма всех чисел       s: =0;       for i: =1 to 32 do             for j: =1 to 32 do             s: =s +j[i,j];       writeln("сумма всех чисел = ",s); s = 0; //минимальное четное число       for i: =1 to 32 do             for j: =1 to 32 do             if (j[i,j] mod 2 = 0) and (j[i,j]< s) then s: = j[i,j];       writeln("минимальное четное число = ",s); s: =0; //кол-во отрицательных нечетных чисел       for i: =1 to 32 do             for j: =1 to 32 do             if (j[i,j] mod 2 < > 0) and (j[i,j] < 0)then s: = s+1;       writeln("кол-во отрицательных нечетных чисел = ",s); s: =0; //сумма отрицательных нечетных чисел       for i: =1 to 32 do             for j: =1 to 32 do             if (j[i,j] mod 2 < > 0) and (j[i,j] < 0)then s: = s+j[i,j];       writeln("сумма отрицательных нечетных чисел = ",s); end;

1)   const      k = 15;       var        a : array [1..k] of integer;         s : real;           i : integer;   begin    randomize;     s : = 0;   for i : = 1 to k do       //обработка массива чаще всего      begin                       //осуществляется в цикле       a[i] : = random(21);         //формирование       s : = s + a[i];                       //подсчет суммы элементов end;     s : = s / k;                               //среднее арифметическое (сумма/кол - во) writeln (s: 3: 3);   end.3)    const       n = 5;           var              a : array [1..n] of integer;                 i,k : integer;     begin  k : = 0;         for i : = 1 to n do              begin          readln (a[i]);             //считываем элемент    if a[i] < 0 then           //если элемент меньше нуля      k : = k +1;                   //счетчик +1            end;     writeln (k);   end.