Вводится последовательность из n чисел. найти сколько в ней нулей

  var    a,i,n,k : integer;     begin  k : = 0;     write ('n = ');   readln (n);         for i : = 1 to n do    begin      read (a);       if a =0 then        k : = k +1;     end;         writeln (k,' - кол-во нулей');                 end.

Из  cообщение "мальчик с тёмными волосами" содержит 2 бита  следует: 2^ 2 =4 (количество мальчиков с тёмными волосами) из   сообщение "девочка с тём волосами"   - 3 бита   следует: 2^ 3 = 8 (количество дев с тём волосами )8 +4 =12 (количество детей с тёмными волосами)вероятность того, что будет выбран ученик с тёмными волосами: p(т) =12/32=3/8 вероятность выбора рыжих в три раза меньше: р(рыж) =р(т)/3= 1/8>   8 =2 ^3   >   3 бита содержит сообщение, что будет выбран рыжий ученик, но тк рыжих мальчиков вообще нет, то это относится только к рыжим девочкам.        ответ   3 бита.

Var   a: array[1..5,1..7] of integer;   i,j: integer; begin   for i: = 1 to 5 do   begin     for j: = 1 to 7 do     begin       a[i,j]: =i+j;       write(a[i,j],' ');     end;   writeln;   end; end. 2. const   m = 5;   n = 9; var   a: array[1..m,1..n] of integer;   i,j: integer; begin      for i: = 1 to m do   begin     for j: = 1 to n do     begin       a[i,j]: =i-j;       write(a[i,j],' ');     end;   writeln;   end; end.