я случайно информатику нажала, это математика

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;

procedure OutLightGreen(n:integer);
begin
  var OldColor:=FontColor;
  SetFontColor(clLightGreen);
  Write(n:5);
  SetFontColor(OldColor)
end;

begin
  var a:=MatrixRandom(10,14,-180,320);
  var m:=ReadInteger('n=');
  Writeln;
  SetFontColor(clWhite);
  Font.Style:=fsBold; Font.Name:='Courier';
  Brush.Color:=clBlack; Window.Clear(clBlack);
  var k:=0;
  for var i:=0 to 9 do begin
    for var j:=0 to 13 do
      if a[i,j]>m then begin
        Inc(k); OutLightGreen(a[i,j]) end
      else Write(a[i,j]:5);
    Writeln
    end;
  SetFontColor(clRed);
  Writeln('Количество элементов равно ',k)
end.

2)
N = 80             
Ic=140 бит
Найти К
 Решение: N =2(в степени I)
     80 = 2*I
       I = 7 бит
 Ic = K* I => K =140 : 7 =20 символов
3)
K = 100*20*30
N =80
Найти: Ic
Решение:  По той же формуле вычисляем размер 1 символа => I = 7 бит
Ic = K*I    Ic =100*20*30*7 = 420 000 бит =52500 байт
4) Ic = 4Kбайта
 K = 2048 
Найти: N
Решение: 4Кбайта = 4 * 2(в 13 степени) бит
   2048 = 2(в 11 степени)  . Найдем вес 1 символа :  I= Ic / K
     I = 4 * 4 = 16(сокращаешь степени)
N = 2*I дальше подставляешь под формулу)