Pascal. в массиве хранятся сведения о количестве осадков, выпавших за каждый день января. определить общее и среднее количество осадков за январь

const n=31;

var a: array [1..n] of integer;

i,s: integer;

begin

write('осадки в январе: ');

for i: = 1 to n do

begin

a[i]: = random(11);

write(a[i],'   ');

s: =s+a[i]

end;

writeln;

writeln('общее количество осадков за январь: ',s);

writeln('среднее количество осадков за январь: ',s/n: 0: 3)

end.

запишем условие: i=357 байт , к=500, n=? , i=?

решение: выразим информационный объем сообщения в битах

i=357*8=2856 бит

найдем вес одного символа i=i/k=2856/500=5.712 бит

по таблице нецелых степеней числа 2 найдем мощность алфавита -52

запишем условие: n=64, страниц=3, строк=40, символов=60, i=?

решение: найдем общее количество символов во всем тексте

к=3*40*60=7200

вычислим вес одного символа алфавита: n=2^i, 64=2^i, 2^6=2^i, i=6 бит

вычислим информационный объем текста: i=k*i=7200*6=43200 бит=5400 байт