Всельскохозяйственном интституте изучают всхожесть семян. результатом одного измерения является целое число от 0 до 100%, которое записано с минимально возможного кол-ва бит. всего исследовано 60 партий семян. определить информационный объём результат наблюдений.

Log2(101)*60=420 бит

Const   max_size = 10;   var   a: array[1..max_size] of integer;   i, size: integer;   procedure delete_odd_elements(); var i, j: integer; begin   i : = 1;   repeat       if odd(a[i]) then       begin           dec(size);           for j : = i to size do               a[j] : = a[j + 1]       end       else inc(i);   until i > size; end;   begin   writeln('исходный массив: ');   size : = max_size;   for i : = 1 to size do   begin       a[i] : = random(100);       write(a[i] : 3);   end;   delete_odd_elements;   writeln;   writeln('полученный массив: ');   for i : = 1 to size do       write(a[i] : 3); end.

//pascalabc.net 3.0 begin   var a : = arrrandom(24, 3, 76);   writeln('затрачиваемое учениками время: ');   a.println;   writeln('среднее время: ', a.average : 0 : 2); end. //fpc / turbo pascal var   a, i, sum: integer; begin   writeln('затрачиваемое учениками время: ');   for i : = 1 to 24 do   begin       a : = random(74) + 3;       sum : = sum + a;       write(a, ' ');   end;   writeln;   writeln('среднее время: ', sum / 24 : 0 : 2); end.