110₂=0*2⁰+1*2¹+1*2²=2+4=6₁₀
² ¹ ⁰
Для первого сообщения 1 символ=4 бита. (2 в 4 степени=16) и умножаем 4 * 40 = 160 бит.
для второго сообщения 1 символ=6 бит. (2 в 6 степени = 64) и умножаем
6 * 15 = 90 бит.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
var i := a.IndexMin;
Writeln('Min a[', i + 1, ']=', a[i]);
i := a.IndexMax;
Writeln('Max a[', i + 1, ']=', a[i])
end.
<h2>-6 -10 9 0 -9 2 10 -7 1 3</h2><h2>Min a[2]=-10</h2><h2>Max a[7]=10</h2>
<span>Random это функция</span><span> возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:</span>
A: = Random(101)-50; {Числа от -50 до 50}
B: = Random(101)-200; {от -100 до 100}
<span>А теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!</span>
Var a:array[1..10] of real;
i:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(21)-10+random;
write(a[i]:0:2,' ');
end;
WRITELN;
write('Изменённый массив: ');
for i:=1 to 10 do
begin
if i mod 2 = 0 then a[i]:=a[i]/2;
write (a[i]:0:2,' ');
end;
end.
var a:array[1..7] of integer;
i:integer;
begin
write('Исходный массив: ');
for i:=1 to 7 do
begin
a[i]:=random(11);
write(a[i],' ');
end;
WRITELN;
write('Изменённый массив: ');
for i:=1 to 7 do
begin
if a[i] mod 10 = 0 then a[i]:=0;
write(a[i],' ');
end;
end.