Ввести с клавиатуры двухмерный массив размерностью 4х6,заполненный целыми числами. сформировать одномерный массив, каждый элемент которого оавен количеству элементов соответствующей строки, больших заданного числа n.

Program test; var   a: array[1..4,1..6] of integer;   b: array[1..4] of integer;   i,i1,max,n,sum: integer; label m1; begin   write('введите елементы массива: ');   for i: =1 to 4 do begin       for i1: =1 to 6 do begin           write('a[',i,',',i1,'] = ');           readln(a[i,i1]);       end;   end;   for i: =1 to 4 do begin       for i1: =1 to 6 do begin           if i+i1 = 2 then max: =a[1,1]           else if a[i,i1]> max then max: =a[i,i1] else max: =max;       end;   end;     m1:     write('введите число (не больше  ',max,') : '); readln(n);   if n< =max then begin     for i: =1 to 4 do begin       for i1: =1 to 6 do begin           if a[i,i1]> n then sum: =sum+1;       end;           b[i]: =sum;           writeln('b[',i,'] = ',b[i]);           sum: =0;   end;   end   else begin       writeln('число больше максимального значения массива, поробуйте снова');       goto m1;   end; end.

По формуле узнаем информационный вес одного символа n=2^i, где n-мощность алфавита, подставив и решив прлучим что инф вес одного символа будет равен 5 бит, умножим 5 бит на 256 и получим 1280-вес одной страницы в битах. разделим всю это на 8, получим 160-вес страницы в байтах, потом умножим на 64 и получим 10240-вес всего документа в байтах, ну и разделим на 1024, получим 10 кбайт. ответ: 10