// PascalABC.NET 3.0, сборка 1088
function InitA(n:integer):array of integer;
begin
Result:=ArrRandom(n,-31,45)
end;
procedure GetA(var a:array of integer);
begin
a:=InitA(ReadInteger('Количество элементов в массиве А: '));
end;
procedure PutM(c:char; a:array of integer);
begin
Writeln('*** Массив '+c+'[',a.Length,'] ***',#13#10,a);
end;
function FormB(a:array of integer):array of integer;
begin
Result:=Range(0,a.Length-1,2).Select(x->a[x]).ToArray
end;
function MinEl(a:array of integer):integer;
begin
Result:=a.Min
end;
begin
var mA:array of integer;
GetA(mA); PutM('A',mA);
var mB:=FormB(mA); PutM('B',mB);
Writeln('Минимальный элемент в массиве В равен ',MinEl(mB))
end.
<em><u>Тестовое решение:</u></em>
Количество элементов в массиве А: 15
*** Массив A[15] ***
[-22,0,-9,17,14,3,38,-18,-28,-17,28,13,1,1,26]
*** Массив B[8] ***
[-22,-9,14,38,-28,28,1,26]
Минимальный элемент в массиве В равен -28
Вроде правильно
N - 16 символов, К1 - 25, К2- 64, I - ?
N=2^i, 16=2^i, i=4
К= К1*К2=25*64=1600
I=i*K= 1600*4=6400 (битов)
6400 битов = 800 байтов
10-20
11-240
12-1
13-(-1)
14-6
<span><span>Будь-яка
інформація передається повідомленнями.
Обмін даними також
здійснюється між тваринами і навіть
рослинами. Так наприклад
робочі бджоли, після того як
зберуть багато нектару і пилок, до вулика
вони повертаються, орієнтуючись за
сонцем . Повернувшись, вони повідомляють
іншим бджолам не тільки про відстань,
на якій знаходиться корм, але передусім
про його положення щодо сонця. За
допомогою спеціального кругового танцю
бджоли розповідають, наприклад, що
джерело нектару знаходиться на відстані
до 100 м від вулика. Якщо ж джерело
знаходиться далі, ніж за 100 м, то бджола
виписує фігуру, подібну до літери „фіта"
старого кириличного алфавіту. Рухаючися
по середній паличці „фіти", бджола
виляє черевцем. </span></span><span> Як
виявилось, рослини активно обмінюються
інформацією між собою. Гриби використовуються
рослинами як система раннього сповіщення
про атаки шкідників. Коли одна рослина
вражається тлею, вона повідомляє про
це сусідів за системою "грибного
зв'язку".</span><span>Цікавою
є поведінка у павуків. Якщо вони дуже
швидко плетуть павутиння, то це віщуває
про похолодання. Якщо ми побачили, що
ластівки низько літають над землею слід
знати, що вони повідомляють про негоду.</span>