Const
N = 25;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(401)-200;
Write(A[i],' ');
if (A[i] = 0)and(i mod 3 <> 0) then k:=k+1;
End;
WriteLn;
WriteLn('k = ',k);
End.
V = 1250 Кбайт =1024*8*1250 = 10240000 бит
t = 40 c
скорость v = V/t = 10240000 бит/ 40 c= 256000 бит/с = 31,25 Кбайт /с
Способ:числовой-с помощью чисел.Графический-с помощью рисунков или значков.Символьный- с помощью символов того же алфавита или текста.ЦЕЛи:сокращение записи,засекречивание иформации,одобство обработки.виды:алфавитное кодирование(естественный язык),Банарное кодирование(барабан-глухой и звонкий звук),Нотное кодирование(нотные знаки),Пиктографическое кодирование(рисунки,условные знаки на картах,схемах),Машинное кодирование(ноль и единица 0,1)