10*1024 = 10240 байт
10240/(32*40*8) = 1 байт - столько "весит" 1 символ
1 символ - 8 бит. 2 в восьмой степени равно 256. 256 символов в алфавите
Количество информации = log(2)16 = 4 бита (2^4 = 16).
Обьект управления: петух.
Управляющее воздействие:
звуковое.
Я так думаю:))))
Const
N = 30;
Var
A,B:array[1..N] of integer;
i,S,M:integer;
Begin
Randomize;
Write('A(',N,'):');
M:=0;
For i:= 1 to N do
Begin
A[i]:=random(11)-5;
Write(' ',A[i]);
if A[i] > 0 then
Begin
M:=M+1;
B[M]:=A[i];
End
End;
WriteLn;
Write('B(',M,'):');
For i:= 1 to M do
Write(' ',B[i]);
ReadLn;
End.