Найти количество положительных элементов в массиве а[1..10]

Program z1; const n=10; var a: array [1..n] of integer; i,k: integer; begin randomize; for i: = 1 to n do begin a[i]: =random (21)-10; write (a[i]: 4); end; k: =0; for i: =1 to n do begin if a[i]> 0 then k: =k+1; end; writeln; writeln('k=',k); end.

Количество информации определяется по формуле: 2 ^ i = N, где i – количество информации. Значение N вычисляется по формуле:

N = (количество дней в месяце) * (количество месяцев в году) * (количество часов в сутках). Отсюда следует, что  N = 31 * 12 * 24 (в октябре - 31 сутки, в одном году - 12 месяцев, в одних сутках - 24 часа).

Сначала вычислим 2 ^ i:

2 ^ i = 31 * 12 * 24 = 8928.

Затем найдем значение i:

i = log 2 (31 * 12 * 24) ≈ 13.12412131 бит информации. Это и будет ответом на поставленный вопрос.

Объяснение:

Пол =”д” И Рост > 178 И Год рождения > 2002.

if(

 Пол == ”д” &&

 Рост > 178 &&

 Год рождения > 2002.

)

Пол =”д” ИЛИ Рост > 178 ИЛИ Год рождения < 2000.

if(

 Пол == ”д” ||

 Рост > 178 ||

 Год рождения < 2000.

)

Пол =”м” ИЛИ Рост > 178 И Год рождения < 2000.

if(

 Пол == ”м” &&

 Рост > 178 &&

 Год рождения < 2000.

)

Пол =”д” И Рост > 178 И Год рождения < 2000.

if(

 Пол == ”д” &&

 Рост > 178 &&

 Год рождения < 2000.

)