Составьте алгоритм вычисления суммы ненулевых элементов в выборке из 14 чисел. , 34 , информатика

//pascalabc.net 3.2 сборка 1318 var   s,a: string;   i: integer;   c: char; begin   s: ='01234567';   for i: =1 to 3 do   begin     c: =s[length(s) div 2];     writeln('число больше ',c,'? ');     readln(a);     if a='да' then delete(s,1,length(s) div 2)       else     delete(s,length(s) div 2+1,length(s) div 2);   end; writeln(s); end.  пример работы программы: число больше 3? да число больше 5? нет число больше 4? нет 4

Количество информации можно определить по известной формуле хартли, но некоторым её бывает поначалу сложно запомнить. поэтому можно пользоваться следующим методом: находим логарифм по основанию 2 отношения общего количества возможностей к интересующему. у нас общее количество равно 101 (по числу прошедших лет плюс текущий год). тогда информация о снеге будет нести ㏒₂(101/29) ≈ 1.8 бит (мы берем 29, потому что 28 раз снег шел за 100 лет и еще один раз в текущий, 101й год). аналогично, по дождю получаем ㏒₂(101/35) ≈ 1.53 бит и по отсутствию осадков ㏒₂(101/39) ≈ 1.37 бит. возможно, что текущий год учитывать в не требуется, и тогда получим: - будет снег: ㏒₂(100/28) ≈ 1.84 бит - будет дождь ㏒₂(100/34) ≈ 1.56 бит - осадков не будет ㏒₂(100/38) ≈ 1.40 бит