Используя формулу хартли и электронные таблицы, определите кол-во информации в сообщениях о равновероятных событиях: 1. на шестигранном игральном кубике выпала цифра 3. 2. в следующем году ремонт в школе начнется в феврале. 3. я приобрел абонемент в бассейн на среду. 4. из 30 учеников класса дежурить в школьной столовой назначили дениса скворцова.

2^i = 128

i = 7 бит

800 * 7 = 5600 бит

5600 : 8 = 700 байт

700 : 1024 = 0,684 килобайт.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;