Program gt;
var b,c:array[1..1000]of integer;
k,n,i,j,r,w:integer;
begin
read(n);
k:=0;
w:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]<0)then begin
k:=k+1;
c[k]:=b[i]*4;
end;
end;
for i:=1 to k do
begin
for j:=1 to k-i do
begin
r:=c[j];
if(c[j]>c[j+1])then begin
c[j]:=c[j+1];
c[j+1]:=r;
end;
end;
end;
w:=1;
for i:=1 to k do
begin
write(c[i],' ');
end;
writeln;
for i:=2 to k do
if(c[i]<>c[i-1])then w:=w+1;
writeln(W);
<span>end.</span>
I = log2<span> K , эта формула имеет также расширенный вид </span>
1. n=10; i=3;
2. 3<=10 - да а=3*2+3=9; i=3+1=4;
3. 4<=10 - да а=4*2+3=11; i=4+1=5;
4. 5<=10 - да а=5*2+3=13; i=5+1=6;
5. 6<=10 - да а=6*2+3=15; i=6+1=7;
6. 7<=10 - да а=7*2+3=17; i=7+1=8;
7. 8<=10 - да а=8*2+3=19; i=8+1=9;
8. 9<=10 - да а=9*2+3=21; i=9+1=10;
9. 10<=10 - да а=10*2+3=23; i=10+1=11;
10. 11<=10 - нет;
Ответ: 23
Ответ:
Массив представляет собой совокупность данных одного типа с общим для всех элементов именем.
Элементы массива пронумерованы, и обращаться к каждому из них можно по номеру. Номера элементов массива иначе называются индексами, а сами элементы массива - индексированными переменными.