Const n=5;
var i,j:integer;
a:array[1..n,1..n] of integer;
Max:integer;
procedure p_max(input_mass:integer);
begin
if input_mass>Max then
Max:=input_mass;
end;
//Заполняем массив
procedure zapolnenue;
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=Random(1000);
end;
begin
Randomize;
zapolnenue;
writeln('Массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j],' ');
p_max(a[i,j]);
end;
writeln;
end;
writeln;
writeln('Max = ',Max);
end.
Var a,min:integer;
begin;
min:=<span>32767;
</span>a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
if a>0 then exit;
if min>a then min:=a;
end;
writeln(min);
end.
Количество информации<span> – это числовая характеристика </span>информации, отражающую ту степень неопределенности, которая исчезает после полученияинформации<span>. Наверное, вам приходилось смотреть по телевизору игру спортлото.</span>
11/2=5 (остаток 1)
5/2=2 (остаток 1)
2/2=1 (остаток 0)
1/2=0 (остаток 1)
И смотрим по остаткам. снизу вверх. Получается 1011 в двоичной системе
Есле я неошибаюсь то может из 200 из них 100