Фаниль собирается отправиться к бабушке в деревню. Деревня бабушки Фаниля очень далеко от Казани. Возможно, ему придётся ехать на нескольких автобусах. Фаниль знает информацию
о всех m автобусах и n станциях в округе. Каждый i-ый автобус едет без остановок от станции ai
до станции bi и путь этот длины pi
. Автобус едет только в одном направлении. Длиной пути от
Казани до деревни Фаниль называет суммарную длину всех путей автобусов, на которых он
ехал. При этом если Фаниль доехал до какой-нибудь остановки, он на ней же должен сесть на
следующий автобус, пока не доберется до деревни Фанилю найти длину
кратчайшего пути из Казани до деревни бабушки. Если таких путей несколько, выберите путь,
который состоит из максимального количества пересадок, чтобы Фаниль смог полюбоваться
красотой каждой станции.

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
  m = 10;

var
  t: array[1..m] of integer;
  i, n, nm, sm: integer;

begin
  //Заполняем массив сл.числами и подсчитываем
  //количество элементов и среднее арифметическое
  //согласно условию задачи
  for i := 1 to m do
  begin
    t[i] := random(-20, 20);write(t[i]:4);
    if (i > 1) and (i <= m) then
      if t[i] > t[i - 1] then n := n + 1
      else if t[i] < t[i - 1] then begin
        sm := sm + t[i];nm := nm + 1;
      end;
  end;
  writeln;
  writeln('число элементов больших предыдущего = ', n);
  writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);  
 
end.

Тестовое решение:
    6  13  19   8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5

1.
0,5 Кбайт = 0,5*1024 байт = 512*8 бит
512*8/128 = 32

2.
Память для одного символа = log(2)64=6 бит
Объем текста = 10*32*64*6 бит = 10*32*64*6/8 байт =
10*4*64*6/1024 Кбайт = 15 Кбайт

3.
3 Кбайт = 3*1024 байт = 3*1024*8 бит
Память для одного символа = 3*1024*8/6144 = 4 бита
Количество символов в алфавите = 2^4 = 16

4.
Память для одного символа = log(2)128=7 бит
Объем сообщения = 10*7 = 70 бит

8.
a) 3 Кбайт=3*1024 Байт = 3072 бАЙТ
b) 2 Мбайт=2*1024 Кбайт = 2*1024*1024 байт = 2*1024*1024*8 бит = 16777216 бит
c) 4,5 Гигабайт=4,5*1024 Мбайт = 4,5*1024*1024 Кбайт = 4718592 Кбайт