Log2(16) = 4 бит
log2(2) = 1 бит
4/1 = 4 раза
21 кбайт * 4 раза = 84 кбайт был размер у того
Const
n=13;
var
a:array[1..n] of integer;
i,k,t:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to n do
begin
a[i]:=Random(21)-10;
Write(a[i],' ')
end;
Writeln;
{ начало собственно программы }
i:=1; k:=0;
while (i<=n) and (k=0) do
begin
if a[i]=0 then k:=i;
i:=i+1
end;
if k>0 then
begin
for i:=k to n-1 do a[i]:=a[i+1];
Writeln('Массив-результат');
for i:=1 to n-1 do Write(a[i],' ');
Writeln
end
else
Writeln('В массиве нет нулевых элементов')
end.
Контрольное решение
Исходный массив
6 -6 10 -9 6 9 0 10 6 0 -10 -3 6
Массив-результат
6 -6 10 -9 6 9 10 6 0 -10 -3 6
Sub car()
Dim s As Double
For i = 1 To 12
s = s + 4
Next i
MsgBox ("Скорость автомобиля через 12 секунд равна " + CStr(s) + " км/ч")
End Sub<span>
</span>
Ответ:
4
Объяснение:
Отсортируем этот массив. Получим 1, 3, 5, 9.
Так как количество элементов в нем честно, значит мы ищем среднее арифметическое двух центральных элементов. 3 и 5 находятся в центре.
Var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
1: Writeln('y = ', x*x);
2: Writeln('y = ', cos(x));
3: Writeln('y = ', sin(x));
4: Writeln('y = ', abs(x));
end;
end.