Program nearone;
var R,i,x,N:integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(50);
writeln(a[i]);
end;
write('Число R ->');
readln(R);
x:=abs(a[1]-R);
N:=1;
for i:=2 to 10 do
if x > abs(a[i]-R) then
begin
x:=abs(a[i]-R);
N:=i;
end;
writeln('Ближайшее число - ',a[N]);
end.
Const
n = 12;
Var
i,max,smax,kmax:integer;
a:array[1..n] of integer;
Begin
randomize;
writeln('Исходный массив: ');
for i:= 1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4)
end;
writeln;
max:=a[1];
for i:= 2 to n do
if max<a[i] then max:=a[i];
writeln('max = ',max);
smax:=0;
kmax:=0;
for i:= 1 to n do
if a[i] = max then
begin
smax:=smax+max;
kmax:=kmax+1;
end;
WriteLn('kmax = ',kmax);
WriteLn('smax = ',smax);
End.
Петрова - 1место
Белова-2 место
Комарова-3
Митина-4
Громова-последнее
Не войдут в финал : Комарова, Митина, Громова
N=64 нужно найти i, по формуле N=2 в степени i, подставляем, 64=2 в степени i, отсюда следут что i=6 битам
1) 2 * 256 = 512 символов всего на 2 страницах
2) 1/16 Кб * 1024 = 64 байта * 8 = 512 бит - объем сообщения
3) 512 бит / 512 симв = 1 бит - глубина кодирования 1 символа
4) N = 2^i
N = 2^1 = 2 символа - мощность используемого алфавита