1. примеры перехода от порядка к хаосу . примеры перехода от порядка к хаосу (уменьшение информации) в окружающем мире.2. примеры перехода от хаоса к порядку (увеличение информации) в окружающем мире.3.каковы должны быть свойства информации,представленной в форме сообщений.4.каковы должны быть свойства информации,прдставленные в форме знаний.5. примеры систем техническими устройствами.6. примеры информационных сообщений,которые несут 1бит информаци

1) переход от порядка к хаосу (уменьшение информации): - извержение вулкана: количество информации больше, когда горные породы находятся в спокойном состоянии, уменьшение информации выражается в том, что происходит   выброс газов, горячего воздуха, пепла, разрушение горных пород, лава изливается; - ураган: частички песка и пыли поднимаются в воздух, уменьшается количество песка на поверхности земли - т.е. уменьшается количество информации 2) переход от хаоса к порядку: - муравьи строят муравейник (в хаотичном состоянии находятся иголки хвойных деревьев, мелкие палочки), - сбор меда пчелами в соты; - птицы для перелета собираются в стаи. 3. для сообщения: полезность, достоверность, краткость, актуальность для данного момента, независимость (от мнения и взглядов составителя сообщения) 4. для знаний: понятность, актуальность, научность, точность, полнота излагамых знаний. 5. автоматизированная линия на машиностроительном предприятии по сборке из деталей машины. системы в современных автомобилях - контроль за скоростью движения. системы самолетами: определение оптимального воздушного пути (траектории полета), система навигации - автоматическое предотвращение аварий и .д. 6. сообщения с 1 битом информации: - да / нет (на любой вопрос, который требует данного ответа) - выпал орел или решка - из двух цветов достали красный или черный - человек живет в одном из двух подъездов (в 1 или во 2) 

const

  n = 20;

var

  a, b: array[1..n] of integer;

  i, k: integer;

begin

  randomize;

  for i : = 1 to n do

  begin

    a[i] : = 10 + random(90);

 
  write(a[i]: 3);

  end;

 

  writeln;

  k : = 1;

 

  for i : = 1 to n - 1 do

  begin

    if a[i] < a[n] then

    begin

      b[k] :
= a[i];

      write(b[k]: 3);

      k += 1

    end;

  end;

end.