Имеется N коров, бегающих вдоль бесконечно-длинной прямой трассы. (1 <= N <= 100, 000 Каждая корова начинает с уникальной позиции и некоторые коровы бегут с различной скоростью. Трасса имеет только одну дорожку и корова не может перепрыгнуть другую. Поэтому, когда более быстрая корова настигает более медленную, она замедляет свою скорость и становится частью некоторой бегущей группы коров. Фермер Джон хочет, чтобы ВЫ посчитали, сколько таких групп образуется. Входные данные Первая строк ввода содержит целое число N. Каждая из последующих строк содержит начальную позицию и скорость одной коровы. Позиция - это неотрицательное целое число, а скорость - положительное целое число, оба числа не более 1, 000, 000, 000. Все коровы начинают в различных позициях, которые задаются в порядке возрастания на вводе. Выходные данные Одно целое число, указывающее, сколько групп останется. Пример входные данныеСкопировать 5 0 1 1 2 2 3 3 2 6 1 выходные данныеСкопировать 2

60 Кбайт

Объяснение:

I = К * i, где

I - информационный объём сообщения (документа)

К - количество символов в сообщении (документе)

i - информационный вес символа (количество бит, которым кодируется 1 символ)

N = 2^i, где

N - мощность алфавита (количество символов в алфавите)

i - информационный вес символа (количество бит или байт, которым кодируется 1 символ)

Дано:

K = 15 страниц * 64 строки * 32 символа = 30 720 символов

N = 65 536 символа

Найти:

I

65 536 = 2^i

i = 16 бит = 2 байта

I =30 720 * 2 = 61 440 байт = 60 Кбайт

1 байт = 8 бит

1 Кбайт = 1024 байт

var

   d : array of integer;

   n : integer;

   

function arrSumRec(d : array of integer; n : integer) : integer;

begin

   if n > d.Length-1 then exit;

   result := d[n]+arrSumrec(d, n+1);

   n += 1;

end;

begin

   write('введите количество элементов для массива ');

   readln(n);

   d := new integer[n];

   d := arrRandom(n, 1, 100);

   writeln('сгенерирован массив из ', n, ' элементов со значениями в диапозоне 1..100');

   writeln(d);

   writeln('Сумма = ', arrSumRec(d, 0));

end.

функция function arrSumRec(d : array of integer; n : integer) : integer; в качестве первого параметра получает массив сумму которого считаем в качестве второго номер члена начиная с которого считаем сумму. Не забываем что нумерация начинается с нуля. поэтому чтобы посчитать сумму всех членов массива в качестве второго параметра указываем 0.