Пример наглядное представление процессов измерения величин

Есть два типа иллюстраций и демонстраций 

1) Сущность алфавитного подхода - кодирование каждого символа определяется размером алфавита - сколько букв в системе - количество символав в алфавите

2) N = 2^i, где

N - количество символов в алфавите

i - глубина кодирования одного символа (количество ячеек памяти нужных для кодирования одного символа)

3) Сущность вероятностного подхода - вероятность - количество возможных результатов одного и того же события. Например, кидаем монетку - два вероятностных события - выпадет орел или решка.

В этом случае формула

N = 2^i, где

N - количество результатов выпадения события

i - глубина кодирования одного результата для данного события

4) Бит - наименьший результат возможного события: количество результатов не может быть меньше двух - ДА или НЕТ, те наименьшее количество событие произойдет если хотя бы будет два варианта - оно случится или не случится.

По другому - бит - это сообщение, которое уменьшает неопределенность прохождения события в два раза.

Задача #1

 

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

i,s:integer;

begin

s:=0;

for i:=1 to 12 do

read(a[i]);

for i:=1 to 12 do

if a[i] mod 2 = 0 then write(a[i],' ');

for i:=1 to 5 do

s:=s+a[i];

writeln(s);

end.

 

Задача #2.

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

i,s:integer;

begin

s:=0;

for i:=1 to 12 do begin

randomize;

a[i]:=random(46)-10 {функция рандом будет вызывать значения от 0 до 45, и еще -10 получится от -10 до 35}

end;

For i:=1 to 12 do begin

if a[i]>0 then write(a[i],' ');

if a[i]<0 then s:=s+1;

end;

writeln(s);

end.

Стоит учесть что он не будет учитывать 0. Например, он может выдать вам 5 положительных(напишет) и количество отрицательных - 2, И это означает что остальные 5 в массиве нули.

 

Задача #3

 

var a:integer;

begin

read(a);

write(a*30);

end.