Задание не совсем корректное. Если в массиве хранятся числа и отсутствие осадков принято за "0", то программа выглядит так
var i: integer;
a: array[1..31] of integer;
begin
for i:=1 to 31 do read(a[i]);
for i:=1 to 31 do
if a[i]=0 then write(i, ' ');<span>
end.
</span>
<span>Информационный объем текста = кол-во символов * вес одного символа.
Вес символа можно определить, если знать, сколько символов в алфавите.
Алфавит физически имеет размеры 16*32 = 512
Кол-во бит на символ можно узнать, подобрав минимальное n, такое что 512 <= 2^n
</span>512 = 2^9. n = 9.
<span>600 * 9 = 5100 - ответ</span>
У меня получается ПРТИПЙ. Может опечатка какая-нибудь?
Объем одного символа - <span>I = log2N = log2(16) = 4 бита
</span>К = 3*1024*8/4 = 6144 символов
Ответ. 6144 символов